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Eliminates Every Bug known to Compilers 


... AS well as a few other species 


H.E.L.P. is a completely interactive 
C programming environment with three 
innovative full-sized features that will 
revolutionize the way you write code. 


A Clean Compile — 
Guaranteed! 
S ay Good-bye to all compiler-type 
errors. H.E.L.P. ’s built-in program 
checker (which would embarrass LINT) 
not only hunts down bugs... explains 
the proper syntax .. . gives examples of 
usage ... but will even offer suggested 
corrections. If you want, H.E.L.P. will 
even make the corrections for you... 
at the touch of a key. 


H.E.L.P. also finds semantic errors as 
well as poor style and inefficiencies. 
You can even check the portability of 
your code! 


Multi-Window Editing 


cy as many windows as you want 
....there’s no limitation ...not even 
your own memory. Because H.E.L.P. 
uses a virtual memory system you can 
create programs larger than your 
machine capacity. 


H.E.L.P.’s very powerful editor allows 
you the flexibility to work in several 
windows .. . with several files at the 
same time. 


Save Keystrokes 


iH undreds of commands are bound 
to the keyboard to give you fast 
execution. 


Always be in Control 


N ot only can you develop code in 
many windows at the same time, but 
you can show (and refer to) important 
definitions in one window while creating 
in another. Or open a window and keep 
notes about your program...ortype a 
memo... ora letter. 


Increase your Productivity 
by 300% or More..... 


I; you are a novice programmer, you'll 
begin writing code like an advanced 
programmer much faster with H.E.L.P. 


ust imagine what H.E.L.P. will do 
for the ADVANCED PROGRAMMER. 


Y. ou'll have more time to become 
creative with your algorithm (since 
H.E.L.P. will make sure your code 
compiles the “first time at bat”). 


H.E.L.P. tracks every step you make. 
If you are not sure about a command, 
just press a key, and you'll get the kind 
of help you need. 
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Check These Features 


@ Multi-window environ- @ Intelligent help sub- 


ment system 

e os program @ User-definable key- 
checking indi 

@ Check syntax, semantic, Ps haat aa d 
type usage, intermodule een Sree eee 
inconsistencies and monochrome 


portability 
®@ Multi-file editing 


@® H.E.L.P. supports the 
full C Language 


NOW IN MS-DOS 


Order now #395 


Everest Solutions, Inc. 
3350 Scott Boulevard 
Building 58 

Santa Clara, CA95051 
(408) 986-8977 








The fastest C. The C that Microsoft 
developed to write its own software 
programs. Hot. 

So hot that we can make this claim: 
Virtually every program runs faster 


with Microsoft® C Compiler than with 
any other MS-DOS" C compiler. 


Efficient C. 
We give you everything you need to 


write code so tight your computer will 
scream. 





“Preliminary testing on the Microsoft C 
Compiler produced code that was signi- 
ficantly smaller than that produced by 
other C compilers? 

Paul Springer, Ashton- [ate. 


“We found the FAR pointer very helpful 
for situations where a mix of memory 


models offers the greatest efficiency. 
Robert Frankston, Software Arts. 


“The portability of the code between 
MS-DOS and XENIX” is great: 
Jim Bean, Peachtree Software. 


But it's really no surprise that our C 
stretches your micro to its limits. We 


wrote both the MS-DOS and the 
XENIX operating systems. 


*Purchase both Microsoft C Compiler and Microsoft Macro Assembler 


and get a $25 rebate direct from Microsoft. See package for details. 


Microsoft, MS-DOS and XENIX are registered trademarks and 
The High Performance Software is a trademark of Microsoft Corporation 


For the name of your nearest Microsoft 
dealer, or to upgrade from Microsoft C 


Compiler or Lattice C, 
call (800) 426-9400. ‘MIC ROSOFT. 


In Washington State, Alaska, Hawaii 
and Canada, call (206) 828-8088. 


And make your programs really cook. 


Microsoft C Compiler Version 3.0 


Microsoft C Compiler 

* Produces compact code and fast executables. 

«Implements register variables. 

Small, Medium and Large Memory model Libraries-Mix models 
with NEAR and FAR pointers. 

¢ Transport source and object code between MS-DOS & XENIX 
Operating systems. 

¢ Library routines implement most of UNIX System V C library. 

* Choose from three Math libraries and generate in-line 8087/287 
instructions or floating point calls. 
—Floating point emulator (utilizes the 8087/287 if installed). 
—8087/287 coprocessor support. 
— Alternate math package —extra speed on systems without an 

8087/2877. 

¢Link routines written in Microsoft FORTRAN (V 3.3 or higher), 
Microsoft Pascal (V 3.3 or higher) or Microsoft Macro Assembler. 

«Supports MS-DOS pathnames and Input/Output redirection. 

File sharing and record and file locking is supported. 

*Do source level debugging, with the Symbolic Debug Utility, 
available separately with the Microsoft Macro Assembler Package* 

Library Manager 

Create, organize and maintain your object module libraries created 

with Microsoft languages. 

Object Code Linker 

¢ Simple overlay linker combines relocatable object modules created 
using Microsoft Languages into a single program. 

«Link very large programs (over IMB, using overlays). 

EXEPACK Utility 

A new utility to compress sequences of identical characters from an 

executable file and to optimize the relocation table. 

EXEMOD Utility 

A new utility used to modify the fields in the header according to 

the instructions given by the user in the command line. 

‘C’ Benchmarks—done on a Compaq Plus with 512k memory 

with no 8087. Program “SIEVE? with register variables, 

Exec Time Code Size EXE Size 

9.39 141 5,914 
:12.24 164 20,072 


Microsoft C 
Lattice C 














Buy Yourself A Pfantas 


t $126 
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Give your favorite programmer a holiday treat - Phoenix you can use keystrokes learned on other editors or make your 
Pfantasy Pacl. Six of the best-engineered, highest perform- keyboard Dvorak. And, you can assign complicated editing 
ance Abbasi eee on the ee bees pee tasks to a keystroke, so you never have to re-key them. 
sold separately. $1295 as Pfantasy Pacl with new software, ™ 
and a maw ontine software update service. All at the one- ...Pmaker,™ the perfect program 
time holiday price of $995. The perfect gift for the knowl- development manager... 
edgeable programmer. You'll get: Like UNIX™ Make and MMF, Pmaker updates and tracks 
...Plink™86 Plus, our new linkage editor, adds modifications in your programs. With Pmaker, generating a 


final copy of your program is never more complicated than 
typing PMAKER MYFILE, regardless of the number 
of modules that make up MYFILE, their depen- 
dencies on one another, the number of modules 
changed, or the variety of compile/assemble/ 
link steps required to generate the program. 


..-Pfix™ 86 Plus, the most advanced 
symbolic debugger on the market 
today... 


a new dimension to modular programming... 


Cache overlays to reduce response time. a 
Link programs much larger than possible 
with standard linkers. Merge object mod- 
ules so you can package them together. 
Reload overlays automatically, so it’s 
easier to design program structures. Or, 
create up to 4,095 overlays, nested 
up to 32 levels, in one or man 


FSS OR OUR OF DENY tee i With its adjustable window 
...Plus, Pmate™ the display of source file, disas- 


text editor that works ear ! Pre “3 7 sembled object, data area, 


th d stack, breakpoint settings, 

© Way you do... be | Penn. nS CPU and coprocessor regis- 
You can run Pmate in back Pumas §é = ters, Pfix takes the guesswork 
ground while you perform > | ; from debugging. You can debug 
another task, or call it up without a listing, since you can see 
instantly while you re inside and enter symbolic names or abso- 
another program. With lute addresses in breakpoints, data 
Pmate, you can reassign displays, expressions, or with the 
any command or key, so in-line assembler. The entire 80xx and 80xxx series of 




















*Price effective through December 31, 1985. 
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16-bit processors is supported, along with the user-assigna- 
ble string and numeric variables, up to 100-step trace-back, 
and debug log to disk or printer. Breakpoints can be set in 
the source file window, whose display can be synchronized 
with the disassembled object during tracing; symbols can be 
added incrementally during the debug session; and the disas- 
sembly written to disk. 


...Pfinish™ the program that maximizes your 
program’s efficiency... 


Pfinish helps you turn your beta-test product into a soft- 
ware work of art. It analyzes your program or the entire 
operating environment during execution, and produces re- 
ports which tell you how much time was spent in each routine 
or interrupt, who called it, how many times, and much 
more. Wasteful, inefficient, or non-optimal areas of code 
become immediately apparent, whether they’re in your 
code, the compiler library, or in the operating system 
routines themselves. 


..-Ptel™ gets the lead out of binary 
file transfer... 


You get error-free file transfer and access to mainframes, 
minis, and micros. ASCII. XModem. Modem7. Telink and 
Kermit. MS-DOS® 2.x or 3.x. With Ptel. You can transfer 
8-bit binary files over a 7-bit data path with Kermit. Masked 
file-name transfers with XModem. Or, transfer whole sub- 
directories with a single command using Telink. Ptel keeps 
track of the original file size and creation date. Ptel also 
offers a script language, backward scrolling, and the ability 
to handle DOS commands from inside the program. 


SEE US AT FALL COMDEX 


Holidays. 


... And, Phoenix’s new on-line software 
update service. Free to all registered 
Pfantasy Pacl owners. 


Ptantasy Pacl software works in MS-DOS/PC DOS en- 
vironments, is completely language-independent, and is 
available for the IBM® PC, XT,™ AT,™ and compatibles, the 
Wang® PC, the TI Business-Pro;™ and the Tandy® 2000. 

So, spoil yourself a little. Get Pfantasy Pacl, and make 
your favorite programmer’s dream come true. 

For more information contact: Phoenix Computer Products 
Corporation, 320 Norwood Park South, Norwood, 

MA 02062. Or call: (800) 344-7200. In Massachusetts 
(617) 762-5030. 


Programmers’ Pfantasies™ 
by 
GY a 

Programmers’ Pfantasies, Pfantasy Pac, Pmaker, and Pfinish are trademarks of 
Phoenix Computer Products Corporation. Pmate, Pfix86 Plus, Plink86 Plus, and 
Ptel are trademarks of Phoenix Software Associates Ltd. MS-DOS is a registered 
trademark of Microsoft Corporation. Wang is a registered trademark of Wang 
Laboratories, Inc. Tandy is a registered trademark of Tandy Corporation. UNIX 
is a trademark of AT&T Bell Laboratories. IBM is a registered trademark, XT 


and AT are trademarks of International Business Machines Inc. TI Business-Pro 
is a trademark of Texas Instruments Incorporated. 
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In This Issue 


Once again we present our annual Forth issue. Perhaps the most significant 
development in Forth over the past year has been the direct implementation 
of Forth engines in silicon logic. One such silicon Forth engine is the Novix 
NC4000 chip. In our feature article Leo Brodie describes some of the 
revolutionary features of this chip and the benefits that it offers to 
programmers. 

This month we also provide a solution to the problems of developing 
tight, rapidly executing code for PROM-based applications written in 
Forth. H. Robinson, P.D. Morse and S.A. Bowhill of the Central Illinois 
Chapter of the Forth Interest Group have designed a post-compiler that 
selects from compiled, threaded Forth code the segments necessary for the 
execution of the PROM-based application and redirects to the RAM of the 
target machine any code that must be resident there. 

Our review section this month also focuses on Forth, in particular, on 
Forth and the Macintosh. First of all, Bruce Horn examines Neon, an object- 
oriented programming environment that is “‘a cross between Smalltalk and 
Forth.” Then, Alan Clute takes a look at MacFORTH, a development pack- 
age designed to ease the writing of programs in the Mac environment. 

Our columnists have added their usual monthly goodies. Dave Cortesi 
serves up some further tidbits from his study of MSDOS, showing how to 
handle ambiguous pathnames with DOS functions 4Eh and 4Fh, how to 
define MSDOS diskette formats and how to control Control-Z. 

Allen Holub had hoped to code a version of the original TpX hyphen- 
ation algorithm in C for last month’s issue, in which we reviewed two 
implementations of TpX for the IBM PC. Limitations on his time prevented 
him from realizing his intentions before deadline, but he did manage to 
finish off the project for this month’s C Chest. So, if you want to find out 
how to hyphenate supercalifragilisticexpialidocious .. . 

Bob Blum seems to be gleefully drowning in the deluge of new CP/M 
products that developers are sending to him. This month he finishes his 
discussion of the AMPRO Little Board, reviews SLRMAC, the 8080 assem- 
bler from SLR Systems, and offers some enticing glimpses of Date Stamper 
from Plu*Perfect Systems, DSD80, the debugger from Soft Advances and 
the latest single board computer from Micro Mint. 

Finally, we continue this month in Mac Toolbox the program listings for 
the MacSCSI hard-disk interface presented by John Bass last month. Look 
for more on the MacSCSI next month. 
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lately his attention has been focused on the design and implementation 

of a microprocessor that uses Forth as its machine language. The No- 
vix chip represents only one recent effort to put Forth on silicon. Rockwell fit a 
good chunk of Forth into its R65F11 chip, along with the 6502 instruction set. 
The British Metaforth MF16LP single-board computer, which is implement- 
ed with custom bipolar circuits, uses Forth as its machine language. Bipolar 
technology is also incorporated in the H4TH/X Forth engines from Har- 
tronix, which provide a real-time system with up to 4,000 primitives in 
firmware. 

None of these products (with the exception, perhaps, of the H4TH /20) is of 
much practical significance to the Forth programmer developing commercial 
software on and for personal computers. They are more likely to interest 
programmers working in areas similar to those worked on by the first Forth 
programmer: device control, process control, robotics. Forth on a chip can 
only help speed developments in these fields. 

There are grounds for wondering whether the programmer who uses Forth 
to develop personal computer applications is in a dwindling minority. The 
virtues of Forth in such applications are similar to those of C. Are Forth’s 
additional virtues the kind that will secure it a permanent place in personal 


(. harles Moore first created Forth to control astronomical instruments; 


computer software development? Perhaps they are, but doubts in that area 


may have been one of the reasons why the language Neon was developed as an 
extension of Forth. Even so, extending Forth to the point where it becomes a 
different language is not a new idea. 

Forth seems in excellent health, but hardware Forths and extended Forths 
lead one to wonder in just what area Forth will see its greatest use in the next 
year, and even whether the language will soon cease to be regarded as a high- 
level language. One wonders: Where is Forth bound? 


Where DDJ is bound is, we hope, evident from its ten-year trajectory: on a 
path of providing more software tools for advanced programmers. We can be 
more specific. Here is our 1986 editorial calendar. 


January: 68000 Programming. Article deadline: past. 

February: Pascal, Modula-2, Ada. Article deadline: now. 

March: The Future of Programming: algorithms for parallel processing. Arti- 
cle deadline: 12/1/85. 

April: Artificial Intelligence. Article deadline: 1/1/86. 

May: At the Human Interface: designing usable software. Article deadline: ae 
1/86. 

June: Communications. Article deadline: 3/1/86. 

July: Forth. Article deadline: 4/1/86. 

August: C. Article deadline: 5/1/86. 

September: Algorithms. Article deadline: 6/1/86. 

October: 80286/80386 Programming. Article deadline: 7/1/86. 

November: Graphics. Article deadline: 8/1/86. 

December: Operating Systems. Article deadline: 9/1/86. 


Plus, of course, our regular columns on C, Unix, 16-bit software, CP/M 


and Macintosh software development tools. 
lichens Gurrg 


Michael Swaine 
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Hardware 

Dear DDJ, 

I vote for more and continuing hard- 
ware coverage, construction and oth- 
erwise. Every magazine except BYTE 
seems to be doing less and less with it. 
Yet, over time, Steve Ciarcia’s hard- 
ware features are consistently among 
the most popular BYTE publishes. 

The print spooler [in the July, 1985 
issue of DDJ] can be simplified con- 
siderably if 6264 or similar 8K X 8 
Static RAM is used instead of 4164s. 
Seven 6264s would give 56K of RAM, 
leaving the top 8K of the 64K address 
space for ROM and the 6821 PIA. A 
74LS138 ¥ decoder could break the 
address space into 8K chunks and 
supply the enable signals for individ- 
ual devices. Additional decoding 
would be required only in the top 8K, 
containing EPROM and the PIA. 
That could be done with a single 
NOR gate. Two 74LS541 buffer 
packages could drive AO-A12, R/W, 
and the enable (phase 2) clock. This 
buffering is desirable due to the load- 
ing imposed by the additional 3-state 
Outputs that use of 7 6264s would in- 
volve. Software could be much sim- 
pler because of elimination of the re- 
fresh routines. System clocks would 
also be simplified. Total cost of con- 
struction wouldn’t be much more 
than the spooler presented. 

The S-100 real-time clock article 
was interesting. However, there were 
a few errors and omissions that de- 
serve comment. 

The use of the MM58167A’s RDY 
line to induce WAIT states depends 
on rather critical timing relationships 
among various events. These timing 
considerations can be greatly reduced 
if an interface adapter such as the 
8255 is used to control the clock chip. 
The only critical timing relationships 
that exist then are those involving the 
8255’s interface with the bus. Since it 


is much faster than the 58167 and its 
timing requirements more closely 
matched to system timing, fewer 
problems occur. 

The POWER DOWN input needs to 
go low | microsecond before the 
power off only if the standby inter- 
rupt is connected to something. If this 
particular feature of the MM58167A 
clock chip is not being used at any 
time, the POWER DOWN input can 
be tied directly to +5 volt power. The 
2N2222 and 2N2907 transistors and 
associated components can then be 
eliminated. In many cases the power 
circuit for pin 24 of the clock chip 
need be no more complex than two 
diodes, a resistor, a capacitor and a 
battery; however, if the clock is on a 
board that tends to be noisy, a more 
complex zener diode and transistor 
switch can be used there. An example 
of this can be seen in Steve Ciarcia’s 
May 1982 BYTE article. 

While the fastest fixed-interval in- 
terrupt frequency specified for the 
58167 by National Semiconductor is 
10 Hz, a 100 Hz interrupt can be ob- 
tained by selecting the counter-latch 
match (sometime called ‘‘alarm 
clock’’) interrupt address, then writ- 
ing “don’t care” states into the sec- 
onds/tens-of-seconds latches. A good 
deal of control can be obtained by 
writing valid comparison values into 
some of the other latches, and “‘don’t 
care” into others. A “4” in the day- 
of-the-week ‘latch and “don’t care” 
everywhere else would get you 100 
Hz interrupts all day every Wednes- 
day. A “12” in the hours/tens-of- 
hours latches and “‘don’t care” else- 
where gets you 100 Hz from 12:00:00 
through 12:59:59 every day. Add the 
“4” in day-of-the-week and you get 
the 12:00:00 through 12:59:59 100 
Hz interrupts every Wednesday. 
Other combinations of valid and 
“don’t care” states get other patterns. 
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For most people’s purposes, this ca- 
pability is, at best, somewhat inter- 
esting, but otherwise useless. For 
automatic data logging, however, it 
could be quite useful. 

The GO command increments the 
counter if the seconds count is greater 
than 39, not 40, as stated on page 64. 

It is frequently easier and more 
foolproof to use the seconds /tens-of- 
seconds counter reset address to start 
the clock at a known time. I think 
maybe the GO command was either 
dreamed up because there was an ad- 
dress that wasn’t otherwise used, or 
else it happened by accident. A goof 
in a mask, perhaps? A bug that be- 
came a feature? 

On page 62 it is stated: “Each Janu- 
ary... the clock IC does not automat- 
ically change to a new year.” While 
true, it is also misleading: the 58167 
doesn’t have years/tens-of-years 
counters (or latches). Any changing 
of the year gets done somewhere other 
than the 58167 clock circuit. 

Someone who wanted to make a 
clock board that does have years 
counters could use an OKI 
MSM5832, National Semiconductor 
MM58274, or Motorola MCM146818 
or MCM146819 or any other clock 
chip that tracks years. 

Sincerely, 

Frank Kuechman 
8113 NE 25th Avenue 
Vancouver, WA 98665 
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‘SUPER PROGRAMMERS edit in XTC to make software 
development a snap! Just look at these powerful 


features: 


MULTITASKING 








MACRO LANGUAGE 














XTC’s built-in multitasking lets you run your macros in the foreground 


The Ultimate Programmer's Editor 
WENDIN’S 





or independently in the background while you continue editing. A back- 

ground process has full access to editor resources, and can be used to 

translate code from one language to another in REAL TIME, print files in the back- 

ground, or even scan syntax while you type in code. Best of all, you can use XTC to edit source 


and documentation in any programming language! 


All DOS compilers and utilities can be executed from 
within XTC using a single keystroke. While it runs, 
XTC captures your compiler’s output and redirects 
it into your text, so you can compare compiler 
messages with your source code ON THE SAME 
SCREEN. And using XTC’s macro language, Turbo 
Pascal is literally only a keystroke away. You can 
use other compilers and utilities inside XTC too — 
like Lattice ‘‘C,’’ Microsoft Pascal, and IBM's Basic, 
to name a few. 


XTC has the most powerful macro language in the 
editing world. XTC’s macros aren't just keystrokes 
assigned to keys; they’re real programs that can be 
used to automatically edit source code and data 
files. Like any real programming language, XTC has 
control structures like IF THEN ELSE, WHILE DO, 
REPEAT UNTIL, FOR NEXT, DUPLICATE N 
TIMES, INDEFINITE LOOP, EXIT, and BREAK 
LOOP. XTC also has INTEGER, BOOLEAN, and 
STRING variables to hold numbers, conditions, and 
pieces of text. 


With XTC you can display up to 8 different files or 
parts of the same file on the screen at once. XTC’s 
windows are programmable and can even be linked 
together to share files. XTC also has 20 other buffers 
that you can use to hold files and blocks of text. 


lf you already know Wordstar commands, then you 
don’t need to learn a new set of commands. If you 
want to customize XTC, just write macros to emulate 
the key layout you’re used to. XTC can also read 
Wordstar files, and can even strip off all of the non- 
standard high bits with a single command. 


XTC lets you edit files entirely in memory (using all 


available memory), or paged to disk, for maximum 
flexibility. You can choose how XTC buffers text. 


e UNDO N TIMES 
e REMOVE WORDSTAR HIGH 


e AUTOINDENTING MODE 


XTC comes with 7,000 lines of source code jam- 


packed onto two DSDD disks. Includes 13 modules 


written in Pascal, and 2 assembly libraries you can 
use to access the PC’s screen, intercept software 
interrupts (like INT 21H functions), allocate and 
deallocate memory, and load and execute pro- 
grams. It’s all included FREE for your recreation and 
enjoyment! 
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| mable editor on all IBM/PC, /XT, and 
1 /AT computers (and true com- 
j patibles). If you want to feel the 


power of XTC before you buy it, just 


| ask for our demo disk (only $10) and 
| try it out. When you buy XTC, we'll 


knock 10 bucks off the price. 


To get your copy of XTC now, order 
it over the phone — we can ship it 
the same day you call! Or, send in 
an order, just like this one: 


Macro Compiler 


Shipping, Handling, 
Insurance 


Want it COD? Add this 


TOTAL IT UP, AND SEND IT QUICK! 





° 150 PAGES OF 
DOCUMENTATION 

¢ RUNS ON IBM / PC, XT, AND 
/ AT COMPUTERS (AND 
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CHENEY, WA 99004 
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quality software tools 
affordable. 


Ada® is a registered trademark of the U.S. Department of Defense. Turbo Pascal is a trademark of Borland, Inc. XTC is a trademark of Wendin, Inc. 
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DR. DOBB'S CLINIC 


by D.E. Cortes! 


Here’s a batch of small items on 
MSDOS and PCDOS. The first is 
based on a note from Nick Hammond 
of Torrens, Australia. There, in a 
magazine called Your Computer and 
in a column not unlike this one, ap- 


peared the plaint of a puzzled user.. 


Sometimes, he said, his everyday pro- 
grams would misbehave strangely. 
DEBUG would bomb or fail to write a 
good file; FORMAT would loop or re- 
port track zero bad when it wasn’t; 
and so forth. The only common fac- 
tors were that the failures occurred 
when there were resident programs in 
the system and that they could be 
fixed by booting without the resident 
programs. Sometimes they could be 
fixed merely by changing the order in 
which resident programs were 
loaded. 


Dismal Memory Access 
Hammond wrote to explain this puz- 
zle. When IBM designed the PC, he 
tells us, they fitted a Direct Memory 
Access (DMA) chip from an 8-bit 
family. It can address only 64K. To 
accommodate the | Mb address space 
of the 8088, they tacked on an exter- 
nal “page register” to establish which 
of 16, 64K “pages” the DMA chip 
would use. Because an 8088 “para- 
graph” is 16 bytes and a “‘page”’ is 
usually 256 bytes, we might do better 
to call these 64K DMA blocks, 
“chapters.” 

What we must never call them, 
Hammond says, is *“‘segments.”” Un- 
like the 65K segments the 8088 can 
address, which may begin at any 
paragraph boundary, there are only 
16 DMA chapters, and they fall ex- 
actly on the 64K boundaries of 
storage. 

As a result, the DMA chip is physi- 
cally incapable of transferring a 
block of data that crosses a chapter 
boundary in a single operation. ‘You 
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have to transfer as far as the bound- 
ary, change the page register, then 
transfer the rest,” says Hammond. 
‘This would be fine if the firmware in 
the BIOS ROM handled the house- 
keeping, but it doesn’t.” 

For example, if you use BIOS inter- 
rupt 13h to access a floppy disk and 
your data area crosses a chapter 
boundary—if any byte in your buffer 
except the first has an address that is 
divisible by 65,536—the BIOS will 
return an error. Programs that don’t 
specifically check for this condition 
will fail intermittently, depending on 
their load address, and that depends 
on what resident programs were load- 
ed ahead of time. 

It’s our impression that I/O done 
through MSDOS does not suffer this 
constraint—just one more reason to 
avoid ROM calls. 


Control That Zee! 

MSDOS function 40h writes up to CX 
bytes to the file named by the “han- 
dle” in BX and returns in AX the 
number of bytes written. Ordinarily, 
all the bytes will be written and AX 
will equal CX afterward. 

Usually the reason DOS will report 
writing fewer than CX bytes is that 
the output disk is full and there is no 
place to put them. That’s a disastrous 
error from which a program has few 
courses of recovery. 

We recently discovered another 
cause—one that isn’t documented so 
far as we are aware. If the output 
data include a logical end of file byte 
(Control-Z ), and if BX names the 
standard output handle (0001), and 
if standard output has not been redi- 
rected to a file, DOS will stop writing 
at the Control-Z and return the count 
of bytes that preceded it. 

This behavior makes sense in a 
way; it makes it easy to copy a disk 
file to the screen without displaying 


= 
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the superfluous garbage that may fol- 
low logical end of file. On that ac- 
count, we’d expect DOS to behave the 
same whenever the target file was im- 
plemented by a character device driv- 
er, whether it was named by a stan- 
dard handle number or not. We 
didn’t test to see if it was that consis- 
tent, or whether it only applied the 
rule to the handles for the standard 
output, print, and auxiliary files, or 
whether it was just a glitch on handle 
0001, or whether it varied with the 
device driver. 

The more consistent DOS is, the 
worse the problems are. How is a pro- 
gram supposed to distinguish a full 
disk from an incidental Control-Z? 
The only way we can think of is to use 
the ioctl function to get the attributes 
of the file’s device driver, and see if 
it’s a block device or a character one. 
Wonderful. 

One program that doesn’t check is 
the MS Pascal 3.0 runtime library. If 
a Pascal program copies from stan- 
dard input to standard output and if 
input is an edited keyboard line in- 
cluding Control-Z and output is the 
screen, it will abort with a disk-full 
error. 


Medium Smart 

Further gleanings from our study of 
MSDOS can be found in the Table 
(page 12), a compilation of the num- 
bers that define MSDOS diskette for- 
mats. We pieced it together from 
IBM and Microsoft manuals. 

The second line of the table is 
headed “format flag-byte.” That’s 
what we call the first byte of the FAT, 
the same byte that Microsoft and the 
illiterati of Boca Raton persist in call- 
ing the “media descriptor,” thereby 
driving us straight up the wall. The 
word “media” is plural, dammit, and 
is in no way a synonym for “disk.” 
The recording medium used with dis- 
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New lightning-fast ZBASIC zaps the competition. Pets 
It’s hot. It’s brand-new. And light years ahead of 


anything else. 
It's ZBASIC. Written for programmers by 


¢ Works the same on all micros 
e Uses same commands—regardless of computer make 





programmers. (If you know BASIC—you know ZBASIC!) —* Structured Basic— (spaghetti optional) 


Now you can write a program exactly the same way on e Device-independent graphics (same graphic commands on all computers) 
an Apple, an IBM, a Tandy, or any other major micro and ¢ 6-54 digits of precision (selectable by user) 

port the source code. You only write the program once e Built-in interactive editor and compiler—to compile 

...and it runs on all the major micros. The commands and execute, just type “run.” 

stay the same—regardless of the computer* (even ¢ Choice of alphanumeric labels or line numbers 


graphic commands and disk 1/0)). 


Not copy protected 


ZBASIC. Starting now, it's the only language One low price gives you everything—there 


you Il ever have to know. 


“subject to hardware limitations. 


The finest implementation of the BASIC language for microcomputers! . 
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SCREEN I/O FEATURES INCLUDE: C: Pro grammers 
¢ dBase-like atsay(), atget(), readgets() 


Input formatting via picture clause PERFECT WINDOWS 
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kettes is an iron or chromium oxide in 
a plastic binder, but the named byte 
doesn’t describe it. 

Whatever you call it, that byte is a 
poor guide to disk layout. The same 
flags can be found on 5- and 8-inch 
disks of very different formats, and 
the flag F9h appears on both 80- 
track diskettes and fixed disks. There 
is a better indicator: DOS functions 
1Ch and 36h both return in register 
DX the total number of allocation 
units on a disk. Read across the third- 
from-last row of Table 1; you'll see 
that each format has a unique num- 
ber of allocation units. 


Hear No Evil... 

...1S the policy of Microsoft regard- 
ing MSDOS. We found a bug in DOS 
and wrote it up in these words: “DOS 
function 43h, AL=00 (return file at- 
tributes of path *DS:DX) returns im- 
possible values and no error in the 
carry flag when given the path ‘C:\.’ 
Under DOS 3.0, despite absence of a 
carry error signal, function 59h re- 
turns partly-correct, partly-contra- 
dictory information, suggesting an 
error was recognized.” We attached 
debug output to prove these points 
and mailed it all to Seattle. 

It was a waste of time. Microsoft is 
not interested in trouble reports from 
civilians; they only talk to companies. 
Or so said Doug Boa of Microsoft in 
an earnest reply. ““Microsoft does not 
support either of our operating sys- 
tems (MSDOS and Xenix) directly,” 
he wrote. ““We do not sell them to the 
public, but only to the equipment 
manufacturers ... [who] are respon- 
sible for all support functions.” 
Therefore, Boa said, “even though 
you are reporting a problem with a 
function call general to all MSDOS 
implementations, you still need to di- 
rect the report to the equipment 
manufacturer.” 

We like to think we can read a tone 
of honest regret in those lines. If we 
wrote an OS, it would just kill us to 
have to turn back trouble reports be- 
cause we'd know that, first, the peo- 
ple who report them are more likely 
to give up than to submit them a sec- 
ond time to their OEMs, and second, 
the OEM is all too likely to ignore the 
reports, lose them, reject them out of 
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ignorance (or habit), or just sit on 
them for a few months before passing 
them on. 

So let’s give a moment’s sympa- 
thetic thought to the Microsoft devel- 
opers, sitting around wistfully hoping 
that somebody will write them a let- 
ter they’ll be allowed to read. But if 
you find a bug in MSDOS or Xenix, 
save your time and postage. We 
might add that the sysops of the Mi- 
crosoft forum on CompuServe will 
also reject any technical queries or 
trouble reports on MSDOS or Xenix. 


Narrow Paths 

MSDOS permits a program to control 
files entirely in terms of compact 
strings of characters called path- 
names. Having to convert the name 
of a file from a compact, punctuated 
string like C:DROSS.DAT to the fixed 
fields of a file control block and back 
again was a major irritation of file 
work in CP/M and early MSDOS. 
With pathnames, programs talk to 
DOS in the same terms with which 
users talk to programs. That should 
make things easier. 

And it does, so long as you work 
only with single files with explicit 
names. Get what should be a path- 
name from the user and terminate 
the input string with a null byte; point 
to the string and tell DOS, “Open it.” 
DOS takes care of case conversion 


and of parsing the string into its | 


many parts: drive letter, directory 
names, filename, extension. If the 
path describes anything that DOS can 
accept as a file, your program gets 
back a numeric “handle” and is off to 
the races. If it doesn’t, DOS returns 
either error 2, ‘‘file not found,” or er- 
ror 3, “path not found.” The first 
means that the disk letter (if any) 
and directory names (if any) were 
valid but the filename and extension 
couldn’t be found in the (last-named 
or default) directory. Error 3 means 
that something went wrong before 
the filename and extension could be 
checked. We should be delighted that 
DOS can handle all this complexity 
for us, because it would be a real 
punctuation (a real #$?!%$* &!) to 
have to program it. 

It’s as easy to erase, create, or re- 
name any single file from its path- 
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name, or set its attributes or time- 
stamp, as it is to open one. 


Winding Paths 
Complications arise when you want 
to handle ambiguous pathnames 


that on drive B you have a diskette 
with a small hierarchy of files: 





inner2.dat 


And suppose that at some time you 
moved to drive B and made MYDIR 
the current directory: 


(ones in which wild cards are used to A>b: 
represent multiple files), especially if B>cd mydir 
you want your program to be as flexi- B>a: 


ble as DIR or COPY. 


Let’s create an example. Suppose | That, by the way, is a point that’s 
poorly explained by the DOS manuals 
we’ve seen. They don’t make it clear 


that each drive has its own current 


top.dat directory. A reference to a file by 
mydir drive, name and extension, as in the 
innerl.dat example 
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A>type b:inner1.dat 


means “look up the file named IN- 
NERI.DAT in the current directory 
of drive B.” It doesn’t mean the root 
directory of drive B; that would be 


A>type b:\inner1.dat 


Nor does it necessarily mean in the 
directory last named to CD; that 
might have been a new current direc- 
tory for another drive. 

Now consider all the ways that you 
can refer to the files on drive B using 
DIR. You can ask about all files by 
not supplying any operand, 


A>b: 
B>dir 


which will list all files in the current 
directory. You can do the same, when 
another drive’s the default, by nam- 
ing the drive. 


A> dir b: 


You can ask for all the files in the 
root directory of the disk by specify- 
ing “root” with a backslash: 


A>dir b:\ 


By convention of DIR and COPY such 
a reference to a directory is implicitly 
a reference to all the files in that di- 
rectory. It saves your having to type 
SRS 18 


A>dir b:\*.* 


or the equivalent double-dot back- 
reference, 


A>dr b::\*.* 
You may refer to files in any directo- 
ry by naming the directories along 
the path to the files, - 

A> dir b:..\mydir\..\top.dat 


including redundant ones, as in that 
example. 


Primrose Paths 


There are a lot of useful programs 
with specifications that start off like 
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this: “for every file that matches the 
first operand, the program will ...” 
For consistency, such programs 
ought to interpret their command 
operands just as generally as DIR 
does. Anything less will just confuse 
the users: they’ll come back com- 
plaining “DIR finds this file, why 
doesn’t your program?” 

The key to handling ambiguous 
pathnames lies in the DOS functions 
4Eh and 4Fh, search for first and 
next match to path, respectively. 
Point to a pathname string that may 
Or may not be ambiguous and call 
DOS; if there’s (another) file that 
matches the pathname, DOS drops 
information about it into the current 
data transfer area. One returned item 
is the filename and extension, for- 
matted as a string. 

Unfortunately, functions 4E/4F 
aren’t as general as DIR is. They do 
not assume *.* after a directory or 
drive letter, for instance. 

Even when they are successful, 
they leave you with a riddle: how can 
you open the file you’ve discovered? 
You have the pathname you used for 
the search, a user-entered string like 
b:\mydir\*.dat, for example. You 
have the filename and extension re- 
turned by DOS, INNER2.DAT, for in- 
stance. Now you’d like to do some- 
thing to the file you’ve found—open 
it or erase it or something—but you 
don’t have enough information. You 
can't just point to the filename string 
and request an open. The file may re- 
side in a disk or directory other than 
the current default, and DOS won’t 
find it. The necessary qualifiers are in 
the search string, but you can’t get at 
them without parsing the string. 
Parsing pathnames was the job that 
we so gladly turned over to DOS. 

As you already suspect, we 
wouldn’t be going on about this if we 
didn’t have a solution. We found that 
we could use DOS function 4300h 
(return attributes of file using path- 
name) to tell the type of path a user 
has provided. With fair reliability, 
the user’s path specification can be 
processed into two versions: a search 
path for use with functions 4E/4F, 
and a lead-in path to be prefixed to 
the filename string that those func- 
tions return. 


The logic of it is explained at te- 
dious length in the comments of List- 
ing One (page 16), the source of a C 
function that does the job. This func- 
tion, fixpath(), would be called once 
to initialize a path provided by the 
user. If it returns a zero, there are no 
files to be found down that path. Oth- 
erwise it has made two new paths, a 
search path and a prefix path. If the 
input path was, say, 


b:..\ 


(“all the files in the parent of the de- 


fault directory of drive B’’), fixpath() 
will return a search path of 


Mee 

and a prefix, or lead-in, path of 
be:\ 

However, if the input string was 
b:\mydir 

it would return a search path of 
b:\mydir\*.* 

and a lead-in path of 
b:\mydir\ 


The search path is for input to func- 
tions 4E/4F. If function 4E returns 
an error, the original path was un- 
grammatical somehow. Otherwise, 
the search path will return the same 
filenames that DIR would print if it 
were given the same input path you 
gave to fixpath(). When you append 
one of these returned filename strings 
to the prefix path set up by fixpath(), 
you have a complete pathname to 
give to DOS functions 3Dh (open), 
41h (erase), 43h (get/set attributes) 
or 56h (rename). 


DD} 


(Listing begins on page 16) 
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AT™ Pfantasies for your PC or XT.” 


Want better speed and memory on your 
PC or XT without buying an AT? 

You’ve got it! 

Phoenix’s new Pfaster™286 co-processor 
board turns your PC or XT into a high- 
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back again without rebooting: All with 
Pfaster286’s compatible ROM software. 
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/* Sesessfssessssere Sa ee eee 


fixpath processes pathname for two different us 
The input path, *ip, is presumably a command operand like the 
first operand of DIR. One output, the search path *sp, is 
the input possibly augmented with "*.*" or "\*,*" so that it 
will work reliably with DOS functions 4E/4F. The other output 
is a lead-in path, *lip, which can be prefixed to the simple 
filename.ext returned by functions 4E/4F to make a complete 
path for opening or erasing a file. 

The function returns 1 if it is successful, but @ if the 
input path can't be processed and should not be used, 

Some input paths can be processed here yet be invalid or 
useless. The search path produced from such an input will 
cause an error return from function 4E (search first match) 


s 
SSSSSSSSS SSeS SSS S SS SSSR SRS SS SSS SSS SSS SHH SSS SSS SSS SS SSS */ 


int fixpath(ip,sp,lip) 
register char 
*ip, /* the input path */ 
*sp, /* the search path */ 
*lip; /* the lead-in or prefix path */ 


@ 

oO 
O tl 
~ ii 
vr sit 
m 
n 

e 


{ 
char *cp; /* work pointer for scanning paths */ 
Pick off 4 special cases: 
(1) the null string, which we take to mean "*,*" 
(2) the simple "d:" reference to a drive, which we 


also take to mean "d:*,*" 
(3) the root-dir reference "d:\" which is mishandled 
by function 4398 of both DOS 2.1 and 3.86. 
(4) any reference that ends in "\" 
In all cases, the input path is ok as a lead-in, but it needs 
the global qualifier *.* added for searching. 


SSsssrsssssee2==fS=s2e2=2 SSSS SSS S ESS SSS SSS SSeS SSeS SeSSsSsSssSssSsSS= */ 
if ( (strlen(ip)==@) /* null string */ 
|} (stremp(iptl,":")==0) /* dz only */ 
||] (ip{strlen(ip)-1]=="\\') ) /* ends in bkslsh */ 
strcpy(lip,ip); /* input is ok prefix */ 
strcpy(sp,ip); 
strcat(sp,"*.*"); /* add *.* for search */ 
return(1l); 
/* SSSSSSSSSSHP SSS SSS SSS SHES SSS SHS SSS SHS SS SHS SSS SHH HS SS a See ee = 
Ok, we have a non-null string not ending in \ and not a lone 
n 


drive-letter. Four possibilities remai 
(1) an explicit file reference, b:\mydir\mydat 
(2) an explicit directory reference, \mydir 
(3) an ambiguous file reference, *.* or b:\mydir\*.dat 
(4) an unknown name, a:noway or b:\mydir\nonesuch.dat 
We can separate this with fair reliability using DOS function 
4300h, get attributes from path. 


The DOS operations used here are based on the MS-C 3.28 
library functions, but all Cc compilers have similar library 
routines and header files. 


regs.x.ax = 0x4300; /* AH=43h, AL=00h */ 

(char *)regs.x.dx = ip; /* DS:DX -> input path */ 
regs.x.cx = @; /* clear CX */ 
intdos(&regs,&regs); /* call DOS */ 

= ( (regs.x.cflag) && (regs.x.ax==0x9002) ) 

/* SSS SSS SS SS SS SS SSS SS Te Ez SSS SSS SSS SSS SSeS SSS SSS SSS SSS 


The path is valid, in that all directories and drives 
named in it are valid, but the final name is unknown. No 
files will be found in a search, so quit now. 


SSS SSS SSS SHH SSS SS SSH SS SHS SSS SHH HHS HS HSS SH SHS SSS SE SE */ 


return(®); 


} 
Leaf l=regs.x.cflag) &&(regs.x.ax==8x0003) ) 
| ==regs.x.Cflag) &&(@==(regs.x.cx & 6x@0818H))) ) 





(Continued on page 18) 
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MYSTIC PASCAL vs. ‘TURBO PASCAL 





198,888 
lines/ 75 Sines/ 
minute 640K sec 100 tasks 
64K 
1343 2 Sines/ 
lines/ sec 
minute 1 task 
ao wee 
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Turbo Mystic Turbo Mystic Turbo Mystic Turbo Mystic 





















COMPILER SPEED 


Mystic Pascal uses a completely new com- 





















MAXIMUM CODE SIZE 


Mystic Pascal lets you use up to 640K for 
your program’s code and data. Your Per- 
sonal Computer cost thousands of dol- 











ARITHMETIC SPEED 


Mystic Pascal's floating point arithmetic 


MULTI-TASKING 


The Mystic Pascal system is based on 
multi-tasking. The Editor, Compiler and 
other components operate concurrently. 







piler design to give extremely fast compi- does not use an 8087 but runs almost like 


lation of ISO Standard Pascal programs. it did! We use a special way of storing 






It compiles each line of code the instant 
you key it into the Full Screen Editor. 
(Bar Graph is based on compiling a 179 
line program with Turbo 3.0 on IBM PC.) 


lars, why settle for a programming lan- numbers in memory to achieve single Up to 100 of your Pascal procedures may 
guage that only lets you use one tenth 


of its power? 


precision arithmetic that is 5 to 50 times also execute concurrently. And they may 








faster than other compilers. If you still communicate by passing messages 






need 8087 support, we'll be offering that | through queues. 


soon. 
























MYSTIC PASCAL FEATURES QUANTITY DISCOUNTS 


Mystic Canyon Software 






Quantity 
e Interactive Pascal The price below includes the disk, 75 pagel] PQ, Box 1010 
e EXE file output manual and shipping within the US and Pecos. New Mexico 87552 Pice 
© 8086 optimized code Canada. We can optionally ship by UPS : Blue Label 


e Full Screen Editor 


e ISO Standard Pascal 
© Help Windows for Pascal 


Blue Label (2nd Day Air) within the U.S. 
Foreign orders add 10% shipping, 


minimum $15. 









Total 






Name 





2nd Day Air 


Language 
ape Quantity Price Each Price Each 


e DOS INTeRrupt calls 





Address 








































l $64 $4.00 
>: 4 c > aye) ie Zi 
Mystic Pascal requires an IBM PC or ea a ie a piste EE tee 
compatible with 256K. Turbo Pascal is a 5-10 48 2.50 Sorry, CODs and Purchase Orders are NOT accepted. Payment must be in US funds 
11-20 42 2.00 on a US bank. 

registered trademark of Borland Interna- oe =a 50 
tional, Inc. 21-50 *s L.5 (_] Check/Money Order L_] Visa [_] Mastercard 

USE YOUR CREDIT CARD TO Card em. 

ORDER NOW BY PHONE 

(505) 757-6344. Sarge fog es eee eee 
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I LLCs 


Dr e Dobb ‘S C, linic Lis ting (Listing continued, text begins on page 10) 


Error 3, path not found, could mean total junk or a 
misspelt directory name, but most likely it just means 
the path ends in an ambiguous name. If there's an error 
the initial search (function 4Eh) will fail. 

With no error and reg cx NOT showing the directory 
attribute flags 0818, we have a normal, unambiguous file 
pathname like "b:\mydir\mydat" or just "myprog.com", 

In either case the search path is the whole input 
path. The lead-in is that shorn of whatever follows the 
rightmost \ or :, whichever comes last -- or just a null 
string if ‘there is-no Xk or :. 


mmr tre ere rt te Stara cce e ee ee SOCK 
= SSS SSS SST TS SSS SST TVS TSS SS HSH SS HSH SS SS SS SSS SS SS SST Sass 


cp = sptstrlen(sp)-l; 
FOr (; ep >--Bpe *eeen} 

if (("\\'==*cp) 11 (':'==*cp)) break; 
if (cp>sp) ++cp; /* retain colon/slash */ 
*cp='\O'; /* may make a null string */ 
strcpy(lip,sp); 
strcpy(sp,ip); /* whole input for search */ 
return (2 )$ 


No error and the directory attribute returned in cx 
shows an unambiguous path that happens to end in the 
namé of a directory, for instance ™..\.<¢\bin® or 
"b:\mydir" Applying the rules of DIR or COPY, we 
have to treat these as global refs to all files named 
in the directory. The search path is the input with 


"\*.*" tacked onto it. The lead-in path is just the 
input plus a backslash. 


strcpy(sp,ip); 
strcpy(lip,ip); 
streat (sp, *V\* yrds 
street (Lip, AAAs 
return(1); 
else 
{ /* unexpected events make me nervous, give up */ 
return(@); 
} 


} End Listing 





Get the ProoDOS © advantage for 


FORTRAN 


4. 
all your Aztec C65" programs 


StL 


e Relational Database with 
Word Processor 


e Visual Programming 
Syntax-Menu and Example 


e Runs on All MSDOS 2.X 
and 3.X Computers 


Golemics, Inc. 
2600 10th St., Berkeley, CA 94710 
(415) 486-8347 
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VIX is a UNIX like operating system 
designed to run Manx’s Aztec C65 software 
under ProDOS. With VIX, programs 
running under the SHELL will run under 
ProDOS including c65, cci, as65, asi, In, 
mklib and others. System includes: 


Standard utilities: cat, cp, date, |, mkdir, 
ren, rm and stty. 

An improved library written in 6502 
assembly. 

A fast screen editor with undelete, auto- 
indent, work wrap and more. 

Source code to entire system except 
editor. 


VIX - $49.95 + $3.50 shipping 
Balanced binary tree data base library- $75 
b-tree with source-$350 


Eclipse @ Systems 


223 Matthew Road 
Merion Station, Pa. 19066 
(215) 664-2419 
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PROGRAMMERS 


Discover why 
you should be using 
77k. 
the complete implementation 
of the ANSI FORTRAN 77 
Standard for the IBM PC and 
compatibles. 

If you are serious about your 
FORTRAN programming, you 
should be using F77L. 
$477 


~S Lahey Computer 
>) Systems, Inc. 

31244 Palos Verdes Drive West, Suite 243 
Rancho Palos Verdes, California 90274 
(213) 541-1200 
Serving the FORTRAN community 
since 1969 
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If lightning still scares you, 


Be sure. Btrieve”. 


Lightning may strike. But it doesn't 
have to destroy your database. 

Btrieve™ file management offers au- 
tomatic file recovery after a system 
crash. So accidents and power failures 
don’t turn into database disasters. Your 
Btrieve-based applications will come up 
when the lights come back on. 

Fast. Btrieve is lightning fast, too. Its 
b-tree file structure automatically 
balances—you never waste time reor- 
ganizing the index. And Btrieve is writ- 
ten in Assembly language especially for 
the IBM PC™. The result: electrifying 
speed on file maintenance routines. 
Applications that run fast. Users who 
don't waste time waiting. 

The standard for networking. When 
your application requires multi-user file 
sharing, Btrieve/N (network version) 
sets the standard for the industry's 
most popular LANs: IBM’s PC Net- 
work, Netware™, Davong MultiLink™, 
Omninet™, PC Net™, EtherSeries™, 
Nestar™, and NetOne™. Btrieve/N 


you're using the wrong file manager. 


= 


ee kkk ee 


offers safe network file management 
that coordinates simultaneous updates 
and protects against lost data. 

Fully-relational data management. 
Using SoftCraft’s entire family of 
products gives you a complete, fully- 
relational database management sys- 
tem. Rtrieve™ adds report writing 
capabilities for generating the reports 
you need. Xtrieve™ speeds users 
through database queries with interac- 
tive, on-screen menus—no command 
language or special syntax. 

For professional programmers. 
Btrieve is the fast, reliable answer for 
all your application development. In 
any development language—BASIC, 
Pascal, Cobol, C, Fortran, and APL. 
With multikey access to records. Un- 
limited records per file. Duplicate, 
modifiable, and segmented keys. Varia- 
ble cache buffer. 

With Btrieve, you can develop better 
applications faster. And know they'll be 
safe if lightning strikes. 
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Suggested retail prices: Btrieve, $245; 
Btrieve/N, $595; Xtrieve, $195; 
Xtrieve/N, $395; Rtrieve, $85; 
Rtrieve/N, $175. Requires PC-DOS or 
MS™.DOS 1.X, 2.X, or 3.X. 


Btrieve, Xtrieve, and Rtrieve; IBM; Net- 
ware; Davong MultiLink; Omninet; PC 
Net; EtherSeries; Nestar; NetOne; and 
MS are trademarks of SoftCraft Inc.; In- 
ternational Business Machines; Novell 
Data Systems; Davong Systems Inc.; 
Corvus Systems; Orchid Technology; 
3Com Corp.; Nestar Systems Inc.; 
Ungermann-Bass; and Microsoft Inc. 


sc 


pe ee 


SoftCraft inc. 


P.O. Box 9802 #917 
Austin, Texas 78766 
(512) 346-8380 Telex 358 200 
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by Allen Holub 


This month we’re going to look at an 
implementation of Knuth’s hyphen- 
ation algorithm. This code is yet an- 
other part of my version of the Unix 
text formatter, nroff. 


Bugs and Fixes 
Before getting started, here’s a little 
miscellany. First, while bringing up a 
version of printf() the other day, I 
found a bug in Version 2.15 of Lat- 
tice C (though the developer would 
probably argue that it’s a feature). 
When writing a subroutine with a 
varying number of arguments of 
varying types (like printf), arguments 
are fetched from the stack frame by 
casting a “generic” pointer to point 
at an individual object on the stack. 
After fetching the argument, the 
pointer is advanced past it. In other 
words, we want to cast a character 
pointer into a long pointer, fetch a 
long object off the stack, and then ad- 
vance the character pointer by the 
size of a long. The first thing I tried 
was: 


char *p; 
long x; 


x = *(long *)p++; 


but this won’t work correctly. Here, 
the problem is order of precedence. *, 
(long *), and ++ are all at the same 
precedence level, but they associate 
right to left. When fully parenthe- 


sized, the associativity gives us: 
x = *((long *)(p++)) 


Because the + + binds more tightly 
to p than the cast, the compiler will 
assume that p is a character pointer 
(rather than a long pointer) for the 
sake of the increment, though it will 
fetch the long object correctly. In 
other words, the expression evaluates 
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to a long, but | (rather than 4) is add- 
ed to the pointer. I tried to force the 
precedence to behave by doing: 


x= Cong * pk -b!; 


but now Lattice gives me an error 25 
(lvalue required) and won’t compile 
it. By itself, (long *)p)++ doesn’t 
compile either. Because this state- 
ment indeed has an lvalue (the x), I 
was rather nonplused. I think that 
the compiler was confused by the 
cast, thinking that I was trying to do 
something such asx+ + = yor: 


int foo; 
(long)foo = 5L; 


which won’t work because this would 
force foo to overflow (only an inte- 
ger’s worth of space is reserved for 
foo, and we’re trying to squeeze a 
long object into it). However, ((long 
*)p)+ + should work because we’re 
just modifying the way that the 
pointer arithmetic works, not over- 
flowing the target. A more clever er- 
ror detection algorithm would take 
care of this exception. The following, 
though inelegant, does work: 


char *p; 


x = *(long *)p; 
p += sizeof( long ); 


While we're on the subject of bugs, 
several people have written about 
what we thought was a bug in Is, the 
directory utility printed a couple 
months back. The problem here is un- 
derlining. On a Compaq, directory 
names comes out at half intensity in- 
stead of underlined. The problem 
here is the hardware (and I contend 
that this is a bug, not a feature). The 
Compaq emulates an IBM color card 
running a monochrome monitor. The 





color card doesn’t support underlin- 
ing (I think that it should) but prints 
text in a different color rather than 
underlining it. On a monochrome dis- 
play, this second color comes out as 
reduced intensity. All the IBM cards, 
color or otherwise, should support the 
attributes specified in the ANSI.SYS 
documentation. Anyway, the Para- 
dise Modular Graphics card has the 
same problem as the Compaq. On the 
other hand, the Hercules Graphics 
card does underlining correctly. 
There’s a second bug in Is that’s a 
little more serious. Ls, as it stands, 
runs fine under DOS Version 3.0. 
However, when running under Ver- 
sion 2.x, it couldn’t find the root di- 
rectory (\) when it was explicitly re- 
quested by an Is \ command. A 
version-independent fix for the prob- 
lem is given in Listing One (page 26). 


Hyphenation 
Moving on, the capability to hyphen- 
ate words is desirable in any text for- 
matter or word processor. A lot of 
needless white space between words 
can be eliminated by hyphenation. 
Narrow columns look better, and we 
can get more words per page. Look- 
ing at the output of several commer- 
cially available word processors, I 
suspect that most of them derive their 
algorithms from the one given by 
Knuth in 7X and Metafont, and I’ve 
used his algorithm here. ! 
Hyphenation is a harder problem 
than you would think at first. To use 
Knuth’s examples, why is record hy- 
phenated rec-ord when used as a 
noun and re-cord when as a verb? 
Consequently, it’s impractical to at- 
tempt a truly universal algorithm— 
there are just too many exceptions. 
Knuth’s algorithm is intentionally 
conservative—if it isn’t absolutely 
sure how to split two syllables, it 
doesn’t split them. 
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Algorithm Description 
Knuth attacks the problem by break- 
ing it into several parts, the first of 
which is exception removal. He keeps 
a dictionary of words that are known 
exceptions to his other rules and then 
sees if a word is an exception before 
processing it further. Strictly speak- 
ing, we could use a huge dictionary 
and dispense with the rest of the algo- 
rithm, but this would be too cumber- 
some to be practical. Knuth includes 
a dictionary of about 300 words in his 
book, some of which are rather use- 
less. (How many times do you use 
“coneflower” in an average docu- 
ment?) There just wasn’t room to 
print the dictionary look-up part of 
the hyphenator this month. It’s a 
straightforward program—it reads a 
sorted list of exceptions and then does 
a simple binary search in a table. 
The second part of the algorithm 
does suffix removal. The following 
suffixes are recognized: 


-able, -ary, -cal, -cate, -cial, 
-cious, -cient, -dent, -ful, 
-ize, -late, -less, -ly, -ment, 
-ness, -nary, -ogy, -rapher, 
-raphy, -scious, -scope, 
-scopic, -sion, -sphere, -tal, 
-tial, -tion, -tional, -tive, 
and -ture. 


Some of these are qualified 


-able must be preceded by e, — 
h,i, k,l, o, u, v, w, x, y. nt, or 
rt; -ary must be preceded by 
ion or en; -cate and -late 
must be preceded by a vowel 
(a, e, i, O, u, OF y); -nary may 
not be preceded by e or io; 
-cilous may not be preceded 
by s; and -ize must be pre- 
ceded by /. 


Another complication is -ing. 
Knuth says if -ing is preceded by few- 
er than four letters, don’t insert a hy- 
phen. If -ing is preceded by two iden- 
tical consonants (other than f, /, s, or 
z) put the hyphen between the conso- 
nants, and if it’s preceded by any let- 
ter but /, break as -ing. If the letter 
before -ling is b, c, d, f, g, k, p, t, or z, 
break before this letter (but do not 
break a ck combination before -/ing); 
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otherwise break -ing. 

If an -able, -ary, -ful, -ize, -less, 
-ly, -ment, or -ness is recognized, 
then the algorithm is applied again to 
the residual word (the word less the 
suffix we just found). Similarly, if we 
fail to find a suffix and the word ends 
in s, e, or ed, we try again with the s, e, 
or ed removed. 

Having removed suffixes, we now 
try to remove potential prefixes, 
working on the word without all the 
suffixes just recognized. The follow- 
ing prefixes will be recognized: 


be-, com-, con-, dis-, equi-, 
equiv-, ex-, hand-, horse-, 
hy-per-, im-, in-, in-ter, 
in-tro-, lex-i-, mac-ro-, 
math-e-, max-i-, min-i-, 
mul-ti-, non-, out-, over-, 
pseu-do-, quad-, semi-, 
some-, sub-, su-per-, there-, 
trans-, tri-, un-der, and un-. 


The intermediate hyphens aren’t in- 
serted unless the entire prefix is 
found (e.g., hy-per-bole vs. hyp-no- 
tic). There are also exceptions here: 





i's 3AM! 






Do you know where your bugs are ? 


This C programmer is finding his bugs the hard way...one at a time. 
That's why it’s taking so long. But there’s an easier way. Use 


e 
PC—Lint 
PC-—Lint* analyzes your C programs (one or many modules) and uncovers 
litches, bugs, quirks, and inconsistencies. It will catch subtle errors before 
ey catch you. PC—Lint resembles the Lint that runs on the UNIX* O.S., but 
with more features and some awareness of the 8086 environment. 


¢ Full K&R C 


© Supports Multiple Modules—finds incon- 
sistencies between declarations and use 
of functions and data across a set of 
modules comprising a program. 


© Compares function arguments with the 
associated parameters and complains if 
there is a mismatch or too many or too 
few arguments. 


© User-modifiable library description files for 
most major compilers. 


© All warning and information messages 
may be turned on and off globally or 
locally (via command line and comments) 
so that messages can be tailored to your 
programming style. 

e All command line information can be 
furnished indirectly via file(s) to automate 
testing. 


Use it to check existing programs, 


programs about to be exported or im- 
ported, as a preliminary to compilation, or 
prior to scaling up to a larger memory 
model. 


e All one pass with an integrated pre- 


processor so it’s very fast. 


e Has numerous flags to support a wide 


variety of C’s, memory models, and 
programming styles. 


© Price: $139.00 MC, VISA 


(Includes shipping and handling) PA residents add 6% 
sales tax. Outside USA add $10.00 

e Runs under MS-DOS* 2.0 and up, with a 
minimum of 128Kb of memory. It will use 
all the memory available. 


Trademarks: PC—Lint (Gimpel Software), UNIX AT&T), 
MS-DOS (Microsoft). 


CIMPEL SOFTWARE 


3207 Hogarth Lane ® Collegeville, PA 19426 
(21 5) 584-4261 
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Be- must be followed by c, h, 
s, or w; dis- may not be fol- 
lowed by A or y; equi- may 
not be followed by v; trans- 
must be followed by a, f, g, /, 
or m; tri- must be followed 
by a, f, or u; un- may not be 
followed by der or i. 


As with suffixes, the algorithm is ap- 
plied repeatedly after dis-, im-, in-, 
non-, over-, or un- is recognized. 

At this juncture, the word has been 
partitioned into three parts: prefix, 
root, and suffix. We now apply sever- 
al consonant-pair rules to the root 
portion of the word. Here, vowels are 
a, e, i, o, u, and y, and consonants are 
all other single letters. Moreover, the 
pairs ch, gh, ph, sh, and th are treated 
as single consonants. If a vowel-con- 
sonant-consonant (VCC) pattern is 
found and both consonants are the 
same and neither consonant is an / or 
s, the break will be between the con- 
sonants. In the case of a vowel-I/] or 
vowel-ss pattern, there will be a 
break only if the following letter isn’t 





Prefixes: 





1-68 


a vowel and the word doesn’t end 
VCCer or VCCers. If the pattern is 
vowel-ck, the break will be after the 
ck. If the pattern is vowel-qu, the 
break will be before the gu. 

If a VCCV combination is found, 
the break will be between the conso- 
nants unless they are one of the fol- 
lowing combinations: 


bl, br, cl, cr, chl, chr, dg, dr, 
fl, fr, ght, gl, gr, kn, lk, 1a, 
neh, nk, nx, phr, pl, pr, rk, 
sp, Sq, tch, tr, thr, wh, wl, 
wn, Or wr. 


Finally, don’t break between conso- 
nants if the word ends with VCCer, 
VCCers, VCCage, VCCages, VCCest 
and the two consonants are either /t, /d, 
mp, nd, ng, ns, nt, rg, rm, rn, rt, or st. 
Once the word is hyphenated, 
Knuth goes back and fixes obvious 
mistakes. He takes back very short 
syllables and syllables ending with a 
silent e. I decided to use the exception 
dictionary to do this rather than add- 
ing more code to the algorithm prop- 


0 Failure, retut original pointer _ : 
Get another character and branch to next state as dicated in table. 


69  Getacharacter, eeosc” p, branch to next state using *p as the 


current character. 


70 __‘hyphenate ey and d branch as above. 


don't exist. 


81 hyphenate *(p-1) andé return {p14}, 
82 _hyphenate *p and *(p—1), return p. 
83 hyphenate *p and *(p—2), return p. 
84 hyphenate *p and *(p—3), return p. 
85 hyphenate *(--p), don’t return. 


86 hyphenate *p, dont’t return. 
87 hyphenate * P and return pd. 


Suffixes: 


0 Failure, if the word ends in s, e or ed strip it off and try again, else return 


- original string pointer. 


58- 7 Don’t exist. 


80 p+=1, vonensic *(p +1). 
- 81 p += 2, hyphenate *(p+1). 
82 ~p += 3, hyphenate *(p+1).. 


. 83 _ hyphenate “(p+ 1). 


Get another eae and a: to next state as indicated i in table. 


84 Failure, return original pointer. 


85 Doesn't exist. 
_ 86 process an -ing. 


87 hyphenate *(p +1) and return p. 
88 hyphenate *(p + 2) and return (p+ 1). 
89 _hyphenate *(p+5) and *(p +1), return p. 


In both tables, unspecified transitions go to state O. Unmarked transitions always go to 
the indicated state, a . — character. P points at the character being pro- 


cessed at oe 


Figure 1 


States and Associated id 
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er. I should say that Knuth is not his 
usual lucid self when describing this 
part of the algorithm. A major factor 
in my not implementing the “short 
end” retention is that I can’t, for the 
life of me, figure out what he was say- 
ing. If anybody can decipher this part 
of the algorithm description, please 
enlighten me. 


implementation 

The code this month (Listing Two, 
page 26) supports the suffix removal, 
prefix removal, and consonant-pairs 
part of the algorithm. The Lattice 
compiler produces a 9063-byte object 
module (which seems a little bloated 
to me, though the code could be opti- 
mized a bit more if space is a prob- 
lem). Hyphens are marked by setting 
the high bit of the character that will 
follow the hyphen (the first letter in 
the syllable). Only unhyphenated 
words composed of lower case letters 
will be processed. Among other 
things, this lets us avoid the problems 
associated with proper nouns, which 
shouldn’t be hyphenated. 

All global variables and all subrou- 
tines that don’t need to be accessed 
from another module are declared 
static. The one externally accessible 
routine is the driver, hyphen( ) (on line 
484), which calls the various other 
processing routines. 

The suffix/prefix removal routines 
use table-driven state machines for 
pattern recognition. As usual, there is 
a trade-off between space and execu- 
tion time. The fastest state machines 
use a large two-dimensional array in 
which one axis is the current state and 
the other the current input character. 
The table itself holds the next state. 
As most of the states have only one 
legal transition, this method uses an 
unnecessarily large amount of memo- 
ry. At the other extreme, we can keep 
a list associated with each state that 
contains all legal input characters and 
the state to go to when that character 
is encountered. This method usually 
takes less space, but we have to search 
the list every time we process a char- 
acter so execution time isn’t great 
when the lists are too long. 

The tables used here are a compro- 
mise between these two methods. 
Each table is an array of pointers to 
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character arrays. The tables are in- 
dexed by current state. If there’s only 
one legal transition out of a given 
state, the first byte of the associated 
array is 1, the next byte is the one 
legal input character, and the third 
byte is the state to go to when that 
character is found. All other input 
characters will cause a transition to 
state 0. The second type of array is 
used when there is more than one le- 
gal transition out of a state. In this 
case, the first byte of the array is 0 
and the next 26 bytes are an array of 
next states indexed by current input 
character. The state tables begin on 
line 605 of the listing. 

The state diagrams for these tables 
are shown in Figure 2 (page 24) and 
Figure 3 (page 25). In both ma- 
chines, state 0 is a failure state. 
States with numbers greater than or 
equal to 80 are success states. These 
are the only states in which any sort 
of action is performed. The actions 
themselves are spelled out in Figure | 
(page 22). Note that the suffix recog- 
nition code goes through the word 
from back to front. Consequently, the 


state table for suffixes is a little weird 
looking (all the suffixes are 
backwards). 

The table-processing routines start 
on lines 110 (suffix) and 221 (prefix). 
They are essentially the same, though 
different tables are used to do the 
processing. The subroutine next(), 
when given the current state and in- 
put character, will return the next 
state. All possible action states are 
taken care of in the switches on lines 
155 and 235. 

Consonant-pair recognition is done 
by brute force rather than with a ma- 
chine. (I tried to do a state machine, 
but it got too complicated). One of 
the places where the code size could 
be reduced is here. Nextch( ) (on line 
318) gets the next input character 
and advances the string pointer past 
the character. If a consonant pair (th, 
sh, ph, ch, or gh) is found, both char- 
acters are skipped and an integer val- 
ue (#defined on line 31 f.) is returned. 
The actual consonant-pair processing 
routine starts on line 393. 

That’s hyphenation. The algorithm 
works correctly with most of the 


It’s a real bargain! Here’s why: 
e Only $49.95 plus shipping 


e Phase/dephase 


words I’ve tried it on. My version suc- 
cessfully hyphenates su-per-califragi- 
lis-ticex-pialido-cious, just like 
Knuth’s does. (Note that the algo- 
rithm doesn’t insert every possible 
hyphen, but it doesn’t put in any in- 
correct ones either. ) 

If anyone doesn’t feel like typing in 
this month’s program, machine read- 
able copies of all source code from C 
Chest are now available on 54-inch 
IBM PC compatible disks from Soft- 
ware Engineering Consultants, P.O. 
Box 5679, Berkeley, CA 94705. The 
cost is $25 per disk (one disk is one 
month’s column). In addition, my ver- 
sion of grep, the Unix generalized reg- 
ular expression parser presented in 
Doctor Dobb’s Journal #96, is still 
available for $35 from the same 
address. 

Notes 
| Donald E. Knuth, TeX and Meta- 
font , New Directions in Typeset- 
ting (Digital Press),pp.180—-186. pp) 
(Listings begin on page 26) 
Reader Ballot 


Vote for your favorite feature/article. 
Circle Reader Service No. 191. 


e 8080 to Z-80 Source Code 
Converter 


e Generates Microsoft compatible 
REL files or INTEL compatible hex 


files 


e Compatible with Digital Research 
macro assemblers MAC & RMAC 


e Generates Ditigal Research 
compatible SYM files 


e Full Zilog mnemonics 
e INCLUDE and MACLIB files 
e Conditional assembly 
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e Separate data, program, common 
and absolute program spaces 


e Customize the Macro Assembler to 
your requirements with installation 
program 

e Cross-reference generation 


e Supports Hitachi HD64180 
additional instructions 


e Z-80 Linker and Library Manager 
for Microsoft compatible REL files 
available as a total package with 
Macro Assembler for only $95.00 
plus shipping; manual only is $15 
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Figure 1 = SUFFIXES 
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Figure 2 PREFIXES 
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wie C C h eS f (Text begins on page 20) 
=D Listing One 


FES Se SAS Se a Ont dea a Sin lie ere snd nha diag ci aad oteles a mie os elcid + 

NGS FORTH | Changes to ls.c to fix the root directory problem. | 
| 1) Add the subroutine isrootdir(): | 
SS a ee A OS I Sele rat at canner la la a ae ae + 

A FAST FORTH, 

OPTIMIZED FOR THE IBM pereoeain | pune) 


char *name; 
PERSONAL COMPUTER AND 





if( *name && name[l] == ':' ) 
MS-DOS COMPATIBLES. name += 2; 
return( (*name == '\\' || *name == '/') && Iname[1]} ); 
nannies nasser, 
STANDARD FEATURES 
INCLUD ® Re re Re ae a on pete aR ha ge Nt ge acca le se ts et cannes cote a + 
———____SNCLUDE? | 2) Modify the first if statement of the subroutine fixup_name() . 
| (line 184 of the original listing) to read: 
@79 STANDARD debeato ches eee a Pe a a ee ey eng ee + 
@DIRECT I/O ACCESS if( !isrootdir(name) && !'find_first(name, ALL, regs) ) 
@FULL ACCESS TO MS-DOS End Listing One 
FILES AND FUNCTIONS 
@ENVIRONMENT SAVE Listing Two 
& LOAD 
1: #include <stdio.h> 
@MULTI-SEGMENTED FOR 2: define DEBUG 
3: 
LARGE APPLICATIONS Be cal ee es ee gee Spe nae ye pu : 
oy) oF HYPHEN.C - An implementation of the Knuth hyphenetion algorithm * 
XTEN AD RE oa" Ors > 
@E DED D SSING 12008 Copyright (c) 1985, Allen I. Holub. All rights reserved. * 
8: a SS a fn Rr yt Solem te ee Sh se tosis eat th arene he as i ies Wits ah mack bigs Saeco x 
@MEMORY ALLOCATION 9: */ 
GURABLE otal NE 18; 
CONFI ON LI ll: /* Various psuedo-subroutines. HYPHEN defines a bit to set when a hyphen 
12: * is inserted. HYPHENATE sets the bit, UNHYPHENATE clears it, 
@eAUTO LOAD SCREEN BOOT 13: * HAS_HYPHEN tests for it. The ER macro checks for an "er" at the end 
14: * of a word, it's used by the consonant pair checking routine. 


* Is consonant returns true if c is a consonant. 


@LINE & SCREEN EDITORS 


he he 

SWAY 

ee eo ee 
»* 


@®DECOMPILER AND 18: #define HYPHEN 8x86 
GG 19: #define HYPHENATE (c) ( (c) |= HYPHEN ) 
DEBU ING AIDS 28: #define UNHY PHENATE (c) ( (c) &= “HYPHEN ) 
21: #define HAS_HYPHEN(c) tei k HYPHEN ) 
@8088 ASSEMBLER 22: 
23: #define ER(p,end) (*p == fe’ && *(ptl) == 'r' && (p+l) == end) 
24: #define isconsonant (c) ((c) && ltisvowel (c)) 
@GRAPHICS & SOUND 25: 
26: /* The dipthongs ch, gh, ph, sh and th are treated as single 
ENHAN : 27 2.5.8 consonants. The subroutine nextch() will map these two 
eNGS CEMENTS zoos. 3 characters into a single character as follows: 
29: */ 
@®DETAILED MANUAL 39: 
31: #define CH ('z' +1 ) /* { @x7b \173 * / 
32: #define GH ('z' + 2 ) J® ORT NVI */ 
@INEXPENSIVE UPGRADES 33: fdefine PH ('2' +3) 7* } 8x7d  \175 */ 
34: #define SH ('z' + 4 ) fe: > B8x7e \176 * / 
@eNGS USER NEWSLETTER 35: #define TH ('z' +5 ) /* DEL 6x7£ \177 a7 
36: 
372: f* S(x) is used to initialize the state tables. It turned out to 
A COMPLETE FORTH 28s. * be easier to use a define than a typedef. ATYPE is used store 
39: * strings in something other than chars (useful if we're keeping 
DEVELOPMENT SYSTEM. 40; * attributes around). I haven't tried compiling with ATYPE set to 
41; * anything except char so be careful if you do. 
42: */ 
eee 
PRI 43: 
_fRICES START AT $70 44: #define S(x) static char x[] 
45: typedef char ATYPE; 
46; 
NEW@HP-150 & HP-110 47: tdefine LATTICE 1 /* Compile for Lattice C compiler */ 
48 
VERSIONS AVAILABLE Ris yeep Rare nie te gees TA Oi st Ge he ce ot 
59: * GLOBAL VARIABLES: 
Shas fF 
26 52: 

53: static char **States; /* Points to table for current state machine */ 
= 54: extern char *Suffixes[]; /* Suffix State table (at end of this module) */ 
= 55: extern char *Prefixes[]; /* Prefix state table : */ 

56: 





57: #ifdef DEBUG 
58: static int Debug = 6; /* True if debug diagnostics are to be printed */ 


NEXT GENERATION SYSTEMS 59: tendif 


P.O. BOX 2987 or, Poe SR et ete aie et bt cee aides daca a aE go | ede. ee * / 
SANTA CLARA, CA. 95055 ef. dik ee 
(408) 241-5909 64: 
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C Ch es f (Listing continued, text begins on page 20) 
Listing Two 


65: extern char *stpchr(); 
66: #define index(s,c) stpchr(s,c) /* For some reason the unix index() 

673 * function is called stpchr() by 

68: * Lattice. 

69: e/ 

76: #define register static /* This will give more efficient code 

71: * since Lattice doesn't support any 

72: * register variables. DON'T EXPLICITLY 
73: * INITIALIZE AUTOMATIC VARIABLES IF 
74: * THIS #DEFINE IS ACTIVE, 
753 * 

76:3 

DUR R CLG Sif Or ee pe te mt a oe Pea Sh a rae eal ag a at bt a */ 
78: 

79: char *index(s,c) 

88: char *s; 

81: { 

82: /* Return a pointer to the left-most occurance of the 

83: . character c in the string s or NULL if the character 

84: ¥ isn't found, 

85: */ 

86; 

87: for(; *s ; st+ ) 

88; if t-4een¢ .) 

89: return s; 

99: return NULL; 

Gt: } 

92: 

93: #endif 

94; 

9) LSS s ere ee Ake Se pen a Cr te een b a neon aie ni keen cb eaek */ 
96% 

97: isvowel (c) 

98: ATYPE cr 

99: { 
108: /* We check for a vowel in the order in which it is likely to 
181: * appear in English (ETAOIN SHRDLU). Return true if c is a vowel, 
162: af 

163: 

184: Cc &= @x7E£; 

165: return( c=='e' ||] c==s'a' [| c=="o' |] c=="i' |] c=a='u' |] c=='y'); 
166: } 

187: 

168; /*----- STE SSSA TOR eR Ren ee eel he ee i Fhe eee ees * / 
189: 

118: static ATYPF *suffix( beg, end ) 

lll: ATYPE *beg, *end ; 

LEZs 

113: /* Split off any suffixes, using the "Suffixes" state table 
114: * (defined below) to recognize them. 

1Li5: */ 

116: 

117: register char D> 

118: register int State, c, c2, times ; 

119: 

128: state 
121: times 
122: States 
123: 

124; for( p = end; p >= beg ;) 

125: { 

126: state = next( state, c = *p-- & Ox7£ ); 

127; 

128: L£¢.¢C'a"\ <= 6-68 -c <=) 'g*)-)- /*words containing non- 
129: return end; /* lower-case characters *, 
134: /* won't be hyphenated. */ 
1329 

isz? / 
133: 

134: 

L353 

136: 

137: 

138: 

139: 

148: 

141: 
142: if( state == 6°) 
143; { 

144: if( times 

Pp 


IEEE 488 TO S-100 
INTERFACE 


Controls IEEE 488 (HPIB) Instruments with 
an S-100 computer 

Acts as controller or device 

Basic and assembly language drivers supplied 
Meets IEEE 696 specification 

Industrial quality burned in and tested 

up to 125K bytes/sec under software control 
3 parallel ports (8255-5) 

$375 






THE 


1 HE. 


1; 
0; 
Suffixes; 


Test for state @ with an if instead of in the switch. 

Lattice C will make the switch very inefficient if the 
range of case values is too high. State @ is wierd; 

we use it to test for trailing e or ed on failure, 

The first time through we set p to end so we can check 
the end of the word. The third time through we abort. 

This means that we'll retry if the word ends -s -e -d 
~ed -de -dd -ee. The extra endings shouldn't matter. 


+- + te +e +e + + + 


* 
mN 


) 


= @ 
end ; /* Strip trailing e or @ */ 


147: else if( times == 1 ) /* Strip trailing ed, de */ 
148: Pp = end-l ; /* ee, or dd */ 
149; else 

158: return end; 


D&W DIGITAL, INC. 
20655 Hathaway Avenue 
Hayward, California 94541 
(415) 887-5711 


152: times++; 
153: } 


255: switch( state ) 
{ 


(Continued on page 30) 
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HALO the market standard for graphics 


HALO provides software implementors with 
a complete graphics development 
environment. 


ANNA 

VG 
ANNAN 
TT 


User Appl ication 










Language Binding 


FONT 


HALO Graphics 
LIBRARIES 


Kernel 





Device Independent 


Each copy of HALO comes with a full com- 
plement of display, input, printer, film re- 
corder and plotter device drivers. Metafile 
creation and display are included. Media 
Cybernetics is continually developing new 
device drivers to meet the ever changing new 
hardware technologies. 


HALO supports all IBM compatible MS/PC 
DOS systems including Texas Instruments 
Professional™, AT&T 6300™, IBM™ 3270- 
PC and of course the IBM PC, XT and AT. 
Over twenty graphics display boards man- 
ufactured by IBM and leading third party ven- 
dors are supported. A single device driver 
supports all display modes on each device. 
Image input from video digitizers and docu- 
ment scanners is supported. New device 
drivers include the IBM EGA and Profes- 
sional and the AT&T Image Capture and Dis- 
play boards. 





This picture was created with ‘Artwork’, a 
HALO-based application written by West End 
Film of Washington, DC. 


De-Facto Standard 


First released in 1982, HALO has an estab- 
lished base of over 40,000 end users and 
over 100 corporate clients. Numerous HALO- 
based CAD, solids modeling, presentation 
graphics, art packages, mapping and other 
vertical market software applications are 
commercially available. 


As early as June 1984, PC World featured 
an article entitled, “HALO A new software 
library leads the way toward graphics stand- 


ardization and portability.” The July 9, 1985 
issue of PC Week’ featured users stories 
from both Rockwell International Corp., and 
Lawrence Livermore Labs on how they use 
HALO to save development time and money. 
Most recently, Mini-Micro Systems August 
1985 issue stated, "Widely used, HALO has 
attained de facto-standard status. It’s cer- 
tainly the most widely used library.” HALO 
has achieved this status because it provides 
a complete device independent graphics en- 
vironment for software developers. Since the 
HALO interface rarely changes, compatibility 
with a new device is achieved simply by add- 
ing a new device driver. 


By incorporating all the HALO device drivers 
into their applications, licensed commercial 
software developers solve distribution and 
compatibility problems. 





This picture was created with ‘Design Board 
3-D”. a HALO-based application written by 
MEGA-CADD of Seattle, Washington. 


Powerful Graphics Toolbox 


HALO has over 170 functions. Standard 
functions include: point, line, arc, circle, el- 
lipse, polygon, etc. Coloring control functions 
are available for color selection, palette man- 
agement, dithering, and textures. 


Advanced features encompass: image 
compression routines for reducing data stor- 
age requirements; both absolute and relative 
addressing plus individual cursors for graph- 
ics text and interaction; world and normalized 
coordinate systems for windowing, viewport 
and clipping; and a metafile reader and 
generator. 


HALO’s raster extension supports rubber- 
banding and non-destructive modes so that 
polygons and text may be interactively cre- 
ated and moved over a displayed image. 


There are currently over twenty bit mapped 
and stroke text fonts available for HALO. The 
object oriented type faces provide user def- 
inition of line width, size, proportional width, 
angle, and interior fill style. 


HALO’s Virtual Rasterization Interface (VRI) 
frees users from the limited resolution of their 
graphics board by modeling the graphics dis- 
play in memory and having the hardcopy pro- 
duced in the maximum resolution of the out- 
put device. 


HALO can be addressed as a linkable library 
or as a resident driver depending on the 
application. 
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Faster than VDI 


In benchmark tests by independent compa- 
nies evaluating HALO and GKS, HALO was 
determined to be three to ten times faster 
depending on the function tested. These 
benchmark results made HALO a require- 
ment for many government agencies and 
large corporations. This gives HALO com- 
patible hardware and software significant in- 
roads into these agencies and corporations. 





This picture was created with ““CADKEY’, a 
HALO-based application written by MICRO 
CONTROL SYSTEMS of Vernon, Connecticut. 


Easy to Learn 


HALO comes with a computer aided tutorial. 
This tutorial, entitled LEARNHALO, teaches 
users to become proficient graphics devel- 
opers in less than a day by providing step- 
by-step instructions through graded 
examples. 


HALO is written in Assembler and callable 
from the language you are already comfort- 
able with: Interpretive and Compiled Basic, 
Professional Fortran, MS Fortran™, Pascal, 
Turbo Pascal™, MS C™, Mark Williams C™, 
Lattice C™, Aztec C™, Computer Innova- 
tions C86™, and Golden Common Lisp”. 


increase Market Value of Hardware 


Graphics hardware manufactures receive 
distinct marketing advantages by having their 
products supported by HALO. HALO is the 
gateway to an extensive body of commer- 
cially available software. 


Pricing Information 


A single copy of HALO for one language costs 
$250.00. A second language binding ordered 
at the same time is an additional $150.00. 
Author, Corporate and Site licensing and OEM 
agreements are negotiated on a case by case 
basis. 


To order, or receive more information on 
HALO and other Media Cybernetics, Inc., 
products contact: 


media cybernetics, Inc. 
7050 Carroll Avenue 
Takoma Park, MD 20912 
(800) 446-HALO or (301) 270-0240 
Telex #332014 


HALO, LEARNHALO, Texas Instruments Profes- 
sional, AT&T, IBM, MS Fortran, Microsoft C, Turbo 
Pascal, Mark Williams C, Lattice C, Aztec C, Com- 
puter Innovations C86, Golden Common Lisp and 
GKS VDI are all registered trademarks of Media 
Cybernetics Inc., International Business Ma- 
chines, Texas Instruments Inc., AT&T, Microsoft 
Corp., Borland Intl., Mark Williams Co., Lattice Inc., 
Manx Software Systems, Computer Innovations 
Inc., Gold Hill Computers, and Graphics Software 
Systems Inc., respectively. 
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C Ch es f (Listing continued, text begins on page 20) 
Listing Two 





157: case 86: 
158: i ld h b done with 
D * -ing. Thi 1 have been 
eb * ocd aches bee it Seance easier to do it here, 
161: : 
162: 
[ = *p  & OxTE ; 
pt ies *(p-1) & Ox7£ ; 
ee. 1f( p --beg <3) 
a return end; /* FAIL */ 
178: else if ( ee : an rt = Tota : 
AiT3 Feet give (c t= 'z! Pos 
172: ae St cote. Fie ee 
173: { 
174: a 
az else Lite oeel ti! 4. 4s index ("bcdfghkptz", c2)  ) 
LETS , Cd eel _ eee Wiad 
ETE SOURCES | 1: EU Nereis ices big 2 
179: 
COMPL 180: } 
NO ROYALTIES ew /* fall through to state 87 */ 
COMPREHENSIVE C Power Packs es pues 
include over 1000 functions which tae. HYPHENATE( *(p+1) ); 
provide an integrated environment 186: | return p; 
for developing your applications ef- ree feats! aes 
ficiently. This Is a beautifully doc- 189: PE eeret * (peta) ); 
umented, Leo een oe 
set of C Function Libraries. 192: case 89: prnaee 
— Dr. Dobb’s Journal, July 1984 193: geome * eel 
USEFUL “...can be used as an ex- 195: return p; 
cellent learning tool for beginning C ing: case 82: ptt; /# p t= 3 #/ 
“ 198; case 81: pt+; /* p += 2 */ 
Programmers... Eee Sain Sepia 7 Bee 2 er 
— PC User’s Group of Colorado, Jan. 1985 aaa wane 64s 
; d=p; 
FLEXIBLE Most Compilers and all aes SY SaBRa eu (pe aP 9} 
Memory Models supported. 203: state = 1; 
RECOMMENDED “‘|have no hesita- | 224: - eget h Bid 
tion in recommending it to any pro- aug: Te 
grammer interested in producing | 387: 
more applications code, using more 209: 
of the PC capabilities, in ese oe Oris ar tdek DEBUG 
° 3 ae : ; ebu 
time. Microsystems, Oct. a8 Se ieoks 
mm PACK 1: Building Blocks | $149 a tendif 
DOS, Keyboard, File, 216; return end; 
Printer, Video, Async 217: } 
gg PACK 2: Database $399 PASS Pe elcsee re Ge a eee Ne Se So en Mie pee / 
a j 228: ; 
en enn ae 221: static Cece eee beg, end ) 
’ 222: ATYPE *beg, *end; 
my PACK 3: Communications $149 re /* Split off any prefixes, using the "Prefixes" state table - 
Smartmodem™, Xon/Xoff, 225: + / 
X-Modern, Modem-7 sont register ATYPE *p; 
my PACK 4: Building Blocks Il $149 228: register int state, c ; 
Dates, Textwindows, Menus, ne Bares 
Data Compression, Graphics 231; tates < Prefixes; 
my PACK 5: eaestiaes $90] 3a: fort p beg) p x end 5} 
Log, Trig, Random, 234: { ses 2 = *pt++ & OxX7£) ) 
’ >. 235: Switch;y state = next(state, c p 
= ae 99 aioe a 82: HYPHENATE( *p ); HYPHENATE( *(p-1) ) ; return Pi 
my PACK 6: Utilities | $ ae ees 83: HYPHENATE( *p ); HYPHENATE( *(p-2) ) ; return 
(EXE files) ‘ 239: case 84: HYPHENATE( *p ); HYPHENATE( *(pesy").} return s 
Arc, Diff, Replace, Scan, Wipe 240: 
‘Master Card/Visa, $7 Shipping, Mass. Sales Tax 5% 541. case 81: --p; 
: : ret. *p-}? 
ASK FOR FREE DEMO DISKETTE — ene. et iGo 
244: 
: SS¢t) -—pr 
NOVUM Re SOFTWARE ae chez 86: bag =) Dy 
ORGANUM HORIZONS | 246: atatece 3 
INC. S INK. 248: case 69: HYPHENATE ( Ps.) 


Sait . 
165 Bedford St., Burlington, MA 01803 
(617) 273-4711 
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2493 break; 

258: 

251: case 7@: HYPHENATE( *(p-l) ); 

252: break; 

253 

254: /* The following states don't actually exist. 
255: ¥ Putting them in the table will cause Lattice to 
256: : compile the switch in a more efficient manner. 
257: * (see p 4-33 of the 1985 vintage manual). 
258: */ 

259: 

266: case 71: case 72: case 73: case 74: case 75: 

261: case 76: case 77: case 78: case 79: 

262: break; 

263: } 

264: } 

265: 

266: #ifdef DERUG 

267: if( Debug ) 

268: print£("\n"); 

269: #endif 

278: 

27s return beg; /* Failure */ 

272: } 

2738 

QTbg [Bam nn nn a EE 
21s: * This table is used to find exceptions to the VCCV rule. It is 
e763 * indexed by the first of the two consonents & contains pointers 
zert. | to strings, any character of which will form an exception if 
“rot; * it's the second consonant. 

279: */ 

288: 

281: static char *yvccv_except[] = 

282: { 

283: /*® a */ dea ; 

284: f* &. °*7 “1” ’ 

285: J/* c */ ier . 

286: j* @.°%F es j 

287: /* e *%/ dh ; 

288: Fateh eit” ’ 

289: f* 9g. Ff yall Ft ; 

298: {*#h */ oT ’ 

291: ft asc Z sie ’ 

292: FOOTE A ' 

293: fe Fy “a ’ 

294: fr "kg" ' 

295: /* m_ */ ne ; 

296: Fae = fie - Fm Cee Be. 3 *7 

297% /* o */ ry ’ 

298: fm yy MF 1. ’ 

299: /* gq */ fa ? 

388: ft ee Re ” ’ 

301: /* Ss */ "pq" r 

302: pS */ nae of eR: 2 */ 

383: /* u */ ad r 

304: J* vi */ es ’ 

395: Fy FF "Rint. is 

366: Fore ey aK ’ 

387: /* y  *f ay ’ 

388: ff? z..%f “ ' 

389: Pe CH Ae ete” ; 

318; /* GH */ “—" ‘ 

311: /* PH */ re , 

312: /* SH */ ais ’ 

ai3% /* TH */ Sr 

314: }; 

315% 

SG [Pam e te sh re ee */ 
au 7's 

318: static ATYPE nextch( pp, endp ) 

319: ATYPE **pp, *endp; 

328: { 

321: /* Advance *pp (one for a vowel or consonant, 2 for a dipthong) 
aaes * and return the character we've just skipped. Dipthongs are 
323% * mapped to the single characters: TH, SH, PH, CH or GH. 
324: * § is returned once *pp reaches or passes endp. 

325: +f 

326: 

Sav register ATYPF rval, *p; 

328: 

329: if( (p = *pp) > endp ) 

338: return (ATYPE) 8; 

a3L% 

3328 rval = *p++ & Ox7E ; 

333: 

334: if¢ (-*p & Ox7E.). sees ART 

325% { 

336: switch( rval ) 

3373 

338: case '*t’: rval = TH; pt+; break; 
339: case 's': rval = SH; ptt? break; 
348: case 'p': rval = PH; pt+; break; 
341: case ‘c': tval = CH; pt+; break; 
342: case ‘'g': rval = GH; ptt; break; 
343: } 
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(Continued on next page) 


LISP 


aL 


eh L 
COMPUTER. 


ileal aeons 
ee 
INTELLIGENCE FOR 
YOUR IBM PC. 


DATA TYPES 

Lists and Symbols 
Unlimited Precision Integers 
Floating Point Numbers 
Character Strings 
Multidimensional Arrays 
Files 

Machine Language Code 


M@ MEMORY MANAGEMENT 
Full Memory Space Supported 
Dynamic Allocation 
Compacting Garbage Collector 


M@ FUNCTION TYPES 
EXPR/FEXPR/ MACRO 
Machine Language Primitives 
Over 190 Primitive Functions 


m@ 10 SUPPORT 
Multiple Display Windows 
Cursor Control 
All Function Keys Supported 
Read and Splice Macros 
Disk Files 


POWERFUL ERROR RECOVERY 
8087 SUPPORT 

COLOR GRAPHICS 

LISP LIBRARY 


Structured Programming Macros 
Editor and Formatter 

Package Support 

Debugging Functions 

OBJ File Loader 


m@ RUNS UNDER PC-DOS 1.1 or 2.0 








aaa ee 
IQLISP 
51/4"’ Diskette 
and Manual $175.00 


J q Integral Quality 


P.O. Box 31970 
Seattle, Washington 98103-0070 
(206) 527-2918 


Washington State residents add sales tax. 
VISA and MASTERCARD accepted. 
Shipping included for prepaid orders. 


Circle no. 56 on reader service card. 








68000 
CO-PROCESSING 
For 

IBM PC, PC/XT 
and 
COMPATIBLE 
SYSTEMS 












Now you can add the MOTOROLA 68000 
16/32 Bit Processor to your PC via use of 
the Pro 68 Advanced Technology Co- 
Processor. Enjoy all of the performance 
benefits of the 68000 processor without 
sacrificing your current PC system. Con- 
sider these impressive standard features 
of Pro 68: 


¢ High Speed MOTOROLA 68000 micro 
processor 
* 10Mhz no wait state design (3 times 
faster than the IBM PC/AT) 
e True 16/32 bit technology 
¢ For use on IBM PC, PC/XT or compati- 
ble systems 
¢ On board 16 bit parity checked memory, 
256K to 1024K 
¢ Two serial |/O ports for multi user 
interface 
¢ Provisions for the high speed NS32081 
math processor 
¢ High speed proprietary dual port host 
bus interface 
¢ Parallel or array processing via multi 
processor architecture 
¢ MS/PC DOS RAM disk driver program 
¢ Choice of two popular integrated 16/32 
bit operating systems: 
— CPM68K from Digital Research Inc. 
— Full suite of development tools 
— ‘‘C’’ compiler with floats and 
UNIX 1/0 library 
— Many third party compatible 
languages and applications 
— OS9/6800 from MICROWARE 
Corporation 
— UNIX look alike with multi user/ 
multi tasking, shell, hierarchical 
disk directory, record and file 
lock, pipes and filters 
— Full suite of development tools 
— UNIXV compatible ‘‘C’’ compiler 
— Optional languages include 
BASIC, ISO PASCAL, FORTRAN 
tl 
Pricing from $1195 includes Pro68 with 
256K, OS, and MS/PC DOS RAM disk 
driver. HSC also manufactures and mar- 
kets a full line of co-processors and 
RAM disks for use on Z80 based systems. 


DISTRIBUTORS: 


Australia-Computer Transition S: stems 
. . .03-537-2768 
Great Britain-System Science 
. . .01-248-;062 
West Germany-DSC International 
. . .089-723-1125 
Canada Remote Systems 
.. -416-239-2835 


Dealer, Distributor and OEM inquiries 
invited. 






















































Hallock Systems Co., Inc. 


267 North Main Street 
Herkimer, NY 13350 
(315) 866-7125 
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C Ch es f (Listing continued, text begins on page 20) 
Listing Two 


344: 
345: 
346: 
347: 
348: 
349; 
356: 
351: 
352: 
353% 
354: 
355: 
356: 
357: 
358: 
359; 
368: 
361: 
362: 
363: 
364: 
365: 
366: 
367: 
368: 
369: 
378: 
371: 
372: 
373: 
374: 
375: 
376; 
377: 
378: 
379: 
388: 
381: 
382: 
383: 
384: 
385: 
386: 
387: 
388: 
389: 
396; 
391: 
392: 
393: 
394: 
395: 
396: 
397: 
398: 
399; 
466: 
461: 
462: 
483: 
404; 
405: 
466: 
407: 
498: 
489; 
41@: 
41l: 
412: 
413: 
414: 
415: 
416: 
417: 
418: 
419; 
428: 
421: 
422: 
423: 
424: 
425: 
426: 
427: 
428: 
429: 
436: 
431: 
432: 
433: 
434: 
435: 


} 


#ifdef DEBUG 


if( Debug ) 
printf£( "nextch(), got <%c>\n", rval ); 

#endif 

*pp = p; 

return rval; 
} 
FP atc eh a Se vrs ev oop hb pgm Sti YS es lan pd adi eit eg us hes as to ee decd es EE */ 
Static iswierd( x, y, p ) 


ATYPE %p; 
{ 


/* Return true if the string pointed to by p ends in: 
. XYer XYers XYage XYages XYest 
*x 
* where XY is one of the pairs: 
* ft 1d mp nd ng ns nt rg rm rn rt st 
tf 
register int cl, C2, ¢3;3 
cl = *p++ ; 
c2 = *pt++ ; 
c3 = *p : 
return ( 
( 
(cl == "e" ¢& c2 == 'y! 
It) {elves "at 66 ¢2 == 'g" £6 cc} == 'e!-) 
I}. ( cl == "e" 6@ c2 == 's' €& c3 == 't! ) 
) 
&& 
( { x == 'f£" 66 y a= 'E* ) 
| | ( x == ! && y == rq?) 
lf! ( x == 'm' && y == "p' ) 
beg eae ae GG eee 
[| ( x == 'n' && index( "dgst", y) ) 
lf! (€ x-== "ct g§& index( *qank* vic) 
) 
3 
} 
/* ae epee ae ae ws ae pf se wee A Se ne Ree oa Se ws anges ee hehe Be */ 
static consonants( beg, end ) 
ATYPE *beg, *end; 
{ 
/* Hyphenate consonant pairs. 
* Look for a VCC pattern: use the state machine: 
* 
* Vv c c 
* Start ----> ] ----- > 2 ----- > 3 ----- > 8 
* re Ic 7 Loe lv | (no fetch ) 
‘ Pivbelety (eae | | 
* | <--+ +------ <-~--- ~ | 
' | | 
* +------~-------------- + 
* 
s The machine is implemente explicitly (with whiles and ifs 
+ ifs and such) rather than with a table driven engine. 
x A new character is fetched in states 1, 2, & 3 (but not 4), 
: When you exit reach state 4 cl and c2 will hold the two 
- consonants, cp will point to the beginning of the second 
7 consonant, beg will point just past the second consonant. 
=f 
register ATYPE cl, c2, *cp; 
register char *ps 
while( 1 ) 
{ 
statel: 
do { 


c2 = nextch( &beg, end ); 
} while( isconsonant(c2) ); 


do { 

for( cl = c2; isvowel(cl) ; ) 

cp = beg; 

cl = nextch( &beg, end ); 
} 
if(cl == 'q' && *beg == 'y') /* Vqu */ 
{ 

HYPHENATE( *cp ); fe V-qu */ 


(Continued on page 34) 
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Now there is an even better structured, 
compiled programming environment than PROMAL. 
Introducing PROMAL 2.0 for the IBM PC, 

the Apple Il, and the Commodore 64. 


ntil now, the best next language 


for the serious programmer 
was PROMAL” Now, it’s the new 
PROMAL—PROMAL 2.0. 

PROMAL 2.0 provides the 

same sophisticated struc- 
tured programming 
environment, the 
same fastone-pass @ 
compiler, the 
same speed of 
execution, the same 
powerful commands 
of the earlier release 
—plus a host of useful 
new features. 


Not just a language. 
A complete 
programming environment. 


PROMAL-the PROgrammer’s 
Micro Application Language — 
provides you with a complete pro- 
gramming environment, including 
a structured, high level language, a 
powerful program Editor, and a 
compiler that quickly turns your 
source code into compact, rapidly 
executing object code. Plus a 
library of integrated machine- 
language subroutines for fre- 
quently used tasks. And for the 
Apple II and the Commodore 64, 
PROMAL provides a DOS-like 
operating system Executive. 


PROMAL 2.0— 
Even more of a good thing. 


In addition to all of the features 
that have made PROMAL users 
declare it “the best language I’ve 
ever used,” PROMAL 2.0 provides: 
@ Overlays that can be 
compiled separately for modular 
programming. 
@ Program size greater 
than 64k. (IBM PC only). 


NEW for PROMAL 
The Graphics Toolbox" 


Twenty fast subroutines for creat- 

| ing sophisticated, high-resolution 

graphics, including windows, clip- 
ping, scaling, and text-on graphics 
using scaled, rotated, user-defined 
fonts. $29.95. 


*Available for the Apple Il and the 
Commodore 64 






® True machine-to-machine 
portability. 

® True 808X object code for 
the IBM PC. 


Let us prove that PROMAL is 
your best next language! 


Buy PROMAL 2.0 and 
try it for 15 days. If you 
don’t believe it’s your 
best next language, just 
return it fora full 
refund. 


PROMAL Features 


@ Structured language with 
indentation. 

@ Fast, one-pass compiler. 

@ Simplified syntax. 

@ No line numbers. 

@ Multi-dimensional arrays, strings 
and pointers. 

@ Long variable names. 

@ Global, Local variables. 

@ Byte, Word, Integer & Real types. 
® Decimal or Hex numbers. 

@ Functions and procedures with 
passed arguments. 

@ Built-in I/O library. 

®@ Control Statements: IF-ELSE, IF 
WHILE, FOR, CHOOSE, BREAK, 
REPEAT, INCLUDE, etc. 

@ Compiler I/O from/to disk or 
memory. 


Executive* 


Command oriented with line 
editing. 

Allows multiple user pro- 
grams in memory at once 

Function key redefinition. 

Program abort or pause. 


Order Form 


My system is (check Se) 
O IBM PC/100% compatibles 0 Apple IIc/Ile 
0 Commodore 64/128 


C1 Developer's Version—Compiler, Editor, 
Library, Demo disk, 280-page manual, (plus 
Executive for Apple and C-64) and stand- 
alone program generation. 
$99.95 + 5.00 s/h. 


Card Number 


22 resident system commands. 
Unlimited user-defined commands. 
Prior command recall/edit. 

I/O redirection to disk or printer. 
Batch jobs. 


Editor 


Full-screen, cursor driven. 
Function key controlled. 
Line insert, delete, search. 
String search and replace. 
Block copy/move/delete/ 
read/write. 
Auto indent, undent support. 
Edit after error. 


Library 


50 machine language commands. 

Memory resident. 

Call by name with arguments. 

Formatted real output, string oper- 
ations and much more. 


*Apple Il and Commodore 64 only. Requires 


one disk drive and 80-column card for 
Apple (Ile, IIc only). 


1-800-762-7874. 


In NC: 919-878-3600 


Systems Management Associates 
3325 Executive Drive, Dept. D-1 
Raleigh, North Carolina 27609 





O My check is enclosed. 
O Please cites to my 
__. Visa —— Mastercard 


Expiration Date 





1 End-User System for Apple II and Commo- Signature 


dore 64-all features of Developer's version N 
except stand-alone program generation. aie 
$49.95 + 5.00 s/h. Add 

CO Demo System-—32-page “Meet PROMAL" ee 
manual and demonstration disk. 
$10.00 + 2.50 s/h. 

0 Graphics Tool Box for PROMAL-Available 
for Apple and C-64 only. $29.95 + 2.50 s/h. 








City, State, Zip 
NC residents add 4-1/2% sales tax. 
Foreign orders add $15.00 additional s/h. 
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“SA ADOM 
O2 GHOLGa 


SOTA or @xpen- 
Computing sive royalty 
Systems or licensing 
Limited lets arrange- 
you choose ments As 


between either 
the versatile 
figFORTH model 
or the 
popular 

79 Standard 
Each version is 
available fora 
number of pop- 
ular computer 


long as your 
applications 
programs do 
not offer the 
end user 
access to 
the basic FORTH 
system, you are 
free to make as 
many copies 


systems of the com- 
including piled FORTH 
the IBM PC, system as 
XT and AT you please 
(or compa- and 
tibles). the distribute 
TRS-80 them as 
Model I, III you wish. 
and 4/4P, | SIME NSA Eda FORTH 
or any from 
computer system SOTA 1s the 
running CP/M SS SS =o FORTH of 
(version 2.x) = = memes Choice for both 
or CP/M Plus ee = the novice and 
(version 3 x) experienced 


What's more, “TFQS5—8O0 programmer 
M 


SOTA doesn't ake it your 


require you choice now! 
to enter into Order your 
any awk ward copy today 


When you order from SOTA, both the fig 
model and 79 standard come complete 
with the following extra features at no 
additional charge. 
* full featured string handling ¢ assembler « 
screen editor ¢ floating point * double word 
extension set ¢ relocating loader e beginner's 
tutorial ¢ comprehensive programmer's guide 
° exhaustive reference manual © unparalleled 
¢ technical support © source listings e 
° unbeatable price e 


ORDER FORM 


GENTLEMEN: Rush me my order! 

O Enclosedismy: Ocheck O money-order 
O Please billmy: OVISA O MasterCard 
for $89.95 

Please send me 079 Standard FORTH O figFORTH model 
for the 

OIBMPC OXT OAT (and compatibles) 

O TRS-80 Model 1 O Model III OModel4 O Model 4P 
OCP/M Version2x OCP/M Plus (Version 3 x) 

For CP/M versions please note: 5 1/4” formats only and 
please specify computer type 









US funds 















NAME: 
SLABS: 
CITY/TOWN: 

oa TE: CR eee > 
CARD TYPE: EXPIRY: 

CARD No: 


SIGNATURE: 
ORDER 213-1080 Broughton Street 


Vancouver, British Columbia 
USNS Canada - VEG 288 


* (G04) bas-s009 * Gas) 


State —-of -the-Art since 1981 


sO 2 


Computing Systems Limited 


IBM, TRS-80 and CP/M are registered trademarka of International 


Business Machine Corporetion, Radio Shack and Digital Research 
Tespectively 









































Circle no. 100 on reader service card. 





C Ch es f (Listing continued, text begins on page 20) 
Listing Two 


436; nextch( &beg, end ); /* skip the u */ 
437: goto statel; 


449: cp 
441: c2 


beg ; 
nextch(&beg, end) ; 


443; } while( isvowel(c2) ) ; 


445; ff( ter}: te2 ~) 
446: break; 


448: /* At this point we have found a Vowel-Cons-Cons 
449; * sequence. Cl and c2 will hold the left and right 
456: * consonant respectively. Beg will point at the 
451: * character following the second consonant. Cp 
452: . will point at the second consant. 


455: Lf (cl eh 'e* &&: c2 ee 'k*) 7* Vok:: 4/7 
{ 


457: if( *beg ) 
458: HYPHENATE( *beg ); /* Vck- * 


} 
466: else if({ cl == ¢c2 ) 


{ 
462: S20 (er-if@ "2": 2 Be kote te tye Py 
463: (isvowel(*beg) && !ER(beg,end)) ) 
464: HYPHENATE( *cp ); 
465: } 


467: else if( isvowel( *beg ) ) /* vecv */ 
{ 


469; if( ! iswierd(cl, c2, beg) ) 

470: { 

471: if( !((p = vecv_except[ (int)cl - ‘'a' ]} 
472: && index(p, c2) )) 
473: HYPHENATE( *cp ); 


476: } 


478: if( HAS_HYPHEN(*end) ) 
479: UNHYPHENATE( *end ); 


484: hyphen( beg, end ) 
485: ATYPE *beg, *end; 


486: { 

487: f* Hyphenate the word deliniated by beg and end: First 
488: * strip suffixes, then strip a trailing s e or ed, 

489; * then strip prefixes. Only words with more than four 
496; * letters and which consist of lower case letters only 
491: : (no NULLS) will be hyphenated. @ is returned if no 
492: * attempt was made to hyphenate the word, one otherwise. 
493: * If the word has already been hyphenated, 1 is returned 
494: * but the word is not modified. 

495: */ 

496: 

497: register ATYPE *prefixp, *suffixp; 

498: 

499: if( end-beg <= 4 ) 

566: return @; 

561: 

502: for( prefixp = beg; prefixp <= end ; prefixp++ ) 

583: { 

504: if ( HAS_HYPHEN(*prefixp) ) 

565: return 1; 

586: 

567: if( !islower(*prefixp & Ox7f) ) 

588: return 8; 

589: } 

519: 

5ll: 

512: suffixp = suffix(beg,end); /* Hyphenate and remove any =f 
Sis: /* suffixes 

514: if( suffixp == end ) 

515: { 

516: /* If root has a trailing s e or ed remove it 
SIT: * before applying any other rules 

518: * / 

519: 

528: if(*end == 's' || *end =='e') 

521: suffixp = end - 1 ; 

522: 

523: else if( *(end-1) == ‘e’ 6&& *end == 'dq' ) 

524: suffixp = end - 2 ; 

525: } 

526: 

527: prefixp = prefix( beg, suffixp); /* Hyphenate and remove any */ 
528: /* prefixes */ 
529: #ifdef DEBUG 

530: foo te Se heer eter in Sai hee en wee ee ea ied */ 
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531: 
532: 
533: 
534: 
$353 
536: 
537: 
538: 
539: 
548: 
541: 
542: 
543: 
544: 
545: 
546: 
547: 
548: 
549: 
558: 
551 
552: 
553: 
554: 
§55% 
556: 
557: 
558: 
5593 
568: 
561: 
562: 
563: 
564: 
565: 
566: 
567: 
568: 
569: 
576: 
S7 ics 
572: 
573: 
574: 
575: 
576: 
STE 
578: 
579: 
580: 
581: 
582: 
583: 
584: 
585: 
586: 
587: 
588: 
589: 
59@: 


tendif 


static 
ATYPE 
int 


ifndef 


#else 


591: } 


592: 
593: 
594; 
5953 
596: 
597: 
598: 
599: 
696: 
601: 
682: 
603: 
684: 
685: 
686: 
687: 
698: 
689: 
618: 
61l: 
612: 
613: 
614: 
615: 
616: 
617: 
618: 
619: 
628: 
621: 
622: 
623: 
624: 
625: 
626: 
627: 
628: 
629: 
636: 


State 


* 

* 

* There 
* is an 
* chara 
* state 
* state 
& 


S(sl 
S(s2 
S(s3 
S(s84 
S(s5 
S(s6 
S(s7 
S(88 
S(s9 
S(s18 


~_—e on 


Ww 
—_ 
149) 
~ 
~ 
ee ee eee ee” 


runt nnn ae uu ba 


S(s12 
S(s13 
S(sl4 
S(sl15 
S(sl6 
S(s17 
S(s18 
S$(sl19 
S(s26 
S(s2l 
S(s22 
S(s23 


Ne OP ON RR OR OR 


f note toe eo 


a Ca ae Ce Se? a et et Se 


2 Print the word in the form: prefixes/root/suffixes */ 
* * 


bprint( beg, prefixp-1l ); /* Print prefixes */ 

putchar('/'); 

bprint ( prefixp, suffixp ); /* Print middle */ 

putchar('/'); 

Beeanet suffixp+l, end 3 /* Print suffixes * / 
Si ita cgi irr Ei acl sh dea ese srr ape sarin naa as a eaghinl asp caratearNeboatnt eae */ 


Et Xsuffizp — pretixp) “s=>. 3.9 
{ 


/* Apply the consonant pairs rules only if the word 
* has at least 4 letters in it (after prefixes 


* and suffixes have been removed 
e/ 


consonants( prefixp, suffixp ); 


} 


return is 


cnx nena te sips cdl keh again i tae ne li cht ene i, ocr AS at titans ts ap aioe chia te gett * / 
next( cur_state, cur_char ) 
CULE Char -_ 3 
cur_state ; 
/* Given the current state and the current input character 
* return the next state. The global variable States must 
* point at the correct state table (Suffixes or Prefixes). 
ay 
char *p = States[ cur_state ] ; 
DEBUG 
1£(;*p:) 
return (int)( (cur_char == p[l]) ? p[{2] : @ )3 
else 
return (int)( pf[(cur_char - ‘a') + 1] ); 
int rval; 
if({ Debug ) 
printf£("%s: Current state = %d, Input char = <%c>, " 
States == Prefixes ? "PREFIX" : "SUFFIX", 
cur state, cur_char )}; 
iE—{ *p 9} 
rval. = tint)( (cur.char == p[1}) .? p[2} <« 8 ): 
else 


ryal =. {int)¢ pi{cur_char -%a") -+° 2}, hy 


if( Debug ) 
printf£("Next state = %d\n", rval ); 


return( rval ); 


oe ore ees et ae we we oe me we ee es wm Oe we i SO SS OOS SSS OS SOO OVS SO Oe Se SS SSeS eee eee eee 


machine tables: 


are two types of states. If the first entry is 6 then the state 
array holding the next state, indexed by the current input 
cter. If the first entry is 1 then all transitions but one are to 
9, the next character is the one exception and the transition 
follows. 


ic Wi tang me atc ey icp i ce grape ase sy eae, en GT SD SO sie SAS ay Ss ea ane “an a ey Si! RS "ee a ee, Sea NW ane St Gale SS SE NG Ee SS AE AES SE Ce OUST 


6, 84,84,84,1,1,84,84,84,84,84,84,84,84,84,84,84,84, 84,1,84, 
84,84,84,84,84, 84 }3 


g, G,0,2,0,7,0,21,0,0,8,0, 23,0, 30,6, 0,0, 33,38, 45,0,0,0,0,49,0}; 
25 Aas 
Deis Pee 
I, *0*, 
Le Ss 
1, "Ss", 


a 
- 
. 
- 
S 
- 
a 
Sl 
”- 


0,0,0,0,0,0,8,8,8,8,4,8,10,8,16,9,15,0,6,8,19 5 


Co 


s 
2. ey 
8, 0,9,8 
: “his 
1 ' 
8, 4, 6,6,0,8,60,8,9,8,8,8,56, 81,8,89,8,81,9,0,0@,6,90, 8,8,8 };3 
rer, 87 i 
mie 144s 


,8,0,0,8,9,0,0,8,0,8,6,8,8,0,9,14,9,8,0,8,8 be 


Aer WTO COAL & W 
NS VI 
= 


; 
; 
; 
; 
? 
, 
; 
; 
1 
? 
; 


— eres. = ee ae ent 


~ 
- 
to 
to 
re) 


25,0,0,8,0,8,0,6,0,9,0,8,60,0,0,0,0,8,0,0,24,0,8,8,80,8 }; 


(Continued on next page) 
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Mulituser/Multitasking 
for 8080, Z80, 8086 





Industrial 
Strength 


FORTH 









TaskFORTH.. 


The First 
Professional Quality 
Full Feature FORTH 

System at a micro price” 


LOADS OF TIME SAVING 
PROFESSIONAL FEATURES: 


* Unlimited number of tasks 

* Multiple thread dictionary, 
superfast compilation 

*x Novice Programmer 
Protection Package ™ 

* Diagnostic Tools, quick and 
simple debugging 

* Starting FORTH, FORTH-79, 
FORTH-83 compatible 

* Screen and serial editor, 
easy program generation 

* Hierarchical file system with 
data base management 

* Starter package $250. Full package $395. 

Single user and commercial licenses available. 

If you are an experienced 

FORTH programmer, this is the 

one you have been waiting for! 

If you are a beginning FORTH 

programmer, this will get you 

started right, and quickly too! 


Available on 8” or 5%” disk 
in various formats under 
CP/M 2.2 or greater and 

5%" MS-DOS 
FULLY WARRANTIED, 
DOCUMENTED AND 
SUPPORTED 


DEALER 
TSA INQUIRIES 
eum) = |NVITED 


Shaw Laboratories, Ltd. 
24301 Southland Drive, #216 
Hayward, California 94545 
(415) 276-5953 


Circle no. 124 on reader service card. 
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for the Apple® | [ 





Parallel Resonance with Damping 
BASIC 213 sec ISYS FORTH 20 sec 







Hydrogen 3p Orbital Cross-section 
BASIC 492 sec ISYS FORTH 39 sec 










ISYS FORTH is a FORTH-83 compiler 
designed especially for scientific and 
engineering applications. 
@ FASTEST Sieve benchmark, 3.3 
seconds/pass. Compiles to machine 
language. 
FLOATING POINT WITH TRANSCEN. 
DENTALS, single and double precision. 
@ 16-BIT 65802 SUPPORT for execution 
speeds 50-100% faster than the above. 
@ FIXED POINT THEORY AND EXAMPLES 
(a 30-page chapter). D*/ for double 
precision fixed point. 


TURTLE AND CARTESIAN GRAPHICS 
with 70-column character set and dou- 
ble hires support. 


MACRO ASSEMBLER. 
DOS 3.3 FILE INTERFACE. 
FULL-SCREEN EDITOR. 
144-PAGE MANUAL WITH TUTORIAL. 
PRICE: $99, NO EXTRA CHARGES. 

































ILLYES SYSTEMS 
PO Box 2516, StaA 

Champaign, IL 61820 
Phone: 217/359-6039 


For any Apple ][ model, 48K or larger. 
Apple is a registered trademark of Apple 
Computer. 







Circle no. 46 on reader service card. 
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C Chest 


Listing Two 


631: 
632: 
633: 
634: 
635: 
636: 
637: 
638: 
639: 
646; 
641: 
642: 
643: 
644: 
645: 
646: 
647: 
648; 
649: 
656: 
651: 
652: 
653: 
654: 
655: 
656: 
657: 
658: 
659: 
6698: 
661: 
662: 
663: 
664: 
665: 
666: 
667: 
668: 
669: 
679: 
671: 
672: 
673: 
674: 
675: 
676: 
677: 
678: 
679: 
688: 
681: 
682: 
683: 
684: 
685: 
686: 
687: 
688: 
689: 
696: 
691: 
692: 
693: 
694: 
695: 
696: 
697: 
698: 
699: 
7866: 
781: 
782: 
7863: 
704: 
765: 
786: 
707: 
788: 
789: 
718: 
Jill: 
712: 
713: 
714: 
715: 
716: 
717: 
718: 
719: 
728: 
721: 
4222 


(Listing continued, text begins on page 20) 


Sta2syer 1 £583 ys 
S(s25)={ 8, 6,0,87,0,8,0,0,0,26,0,6,0,0,27,0,8,9,0,06,87,0,0,8,8,8,8 }; 
S(826)={ @, We GE de eLearn ny a bene he By Sere t tens oee ee ‘3 
Siezr iets) tet, 28 ky 
S(s28)*{ 1,0 "1". 293; 
§S(s29)={ 1, 't', 89 }; 
§{(830)={-1,: %o*;. 31 ‘4s 
Stasi} et 2) Ait 2 S27 3 
Seat a, eee eared Ba Uy 8 tals 8, 87 By EB he 
Stéss}e{-1,° %e* 34.4, 
S§(s34)={ 1, "h', 35 }; 
$(835)=(.1, "p*, 36. J; 
§(s36)={ 1, ‘a’, 37 }; 
SL ea7 yee Te et ee F3 
ee 8, See ee ee tern Reber B G39, 0, 4150/0, 82808 3 
§(s39)={ 1, ‘e', 40 }; 
Serer e, 21918 10/8,0/0,0,0,0,0,83,0,83,0,0,0,0,0,0,0,0,0,0,0,0 1; 
S(s41l)= iOS, S2rts 
S(s42)={ 1, 'i', 43 }; 
S(s43)={ 1, '"c', 44 }; 
S(s44)={ 0, 88,88,88,88,88,88, 88,88, 88,88, 88, 88,88, 88, 88, 88,88, 88,87, 88, 
88,88,88,88,88,88 }; 
S(s45)ef-1, ‘rn’; 46 }; 
S(s46)={ 1, 'e', 47 }; 
Seren 8, et ha yon eee ne CHB OER Beer er 8 Pel se, BBO Ae he 
S(s48)={ 1 So"... 7. ke 
S (849) | a, 01910, 0,0,8,50,35,0,0/0,83,0,0,0,0,0,51,0,0,0,0,0,0,0,0 Y 
$(s58)={ 1, 'o*, 87 };3 
S(s51)={ 1, 'a', 52 }; 
S(es2}"{ 1, *n'*, 53°). 
S(s53)={ 6, 88,88,88,88,81,88,88,88,88,88,88,88,88,88,54,88,88,88,88,88, 
ris 88,88,88,88,88,88 }; 
$(854)={ 1 i 82 }; 
S(s55)={ 0, 0,0,0,0,80,6,0,80,80,0,89,80,5,0,80,0,0,0,0,13, 88,80, 80,86, 
88,08}; 
static char *Suffixes[] = 
{ 
sO, sl, s2,. 83, 84, . 8S, s6; si; .s8,.° .85, 
816, sll, 812, 513, sl4, s15, sl6, Bi7, 618, ‘s1$, 
s28, s21, s22, s23, s24, s25, s26, S27), 828; 829, 
836, s3l,.s32, 833, 534, s35, s36, s37, s38, s39, 
s40, s4l, s42, s43, s44, s45, s46, s47, s48, s49, 
s58, s51, s52, s53, s54, s55 
‘3 
/* ES ne Oe Oe eR ae av mee eS a in i en ae Se Nays lg se ae as lp Saran elie is is Sis essa es tes ee wn OS ns oe wd */ 
S(pl )= {8@, 6,2,4,6,9,8,8,13,22,6,6,26,29,39,41,45,50,9,53,57,64, 
6,9,0,0,8 }; 
S (p2 )= ily ‘e', a3 ES teen 
S(p3 c a Dee hey ee rt eer Bree N eS 0, 0,8 785/80) 0582 0A bye hs 
Stps.- je [h, 4a"; 5} 
es 3 os Me ere ere enen er Teh Tal 8,0 /8, 058, 0, 0) Sel Bye he 
S(p = ’ a ; 
S(p7 )= Ch; "a4 8 }3 
S(p8 )= {8, 85,85,85,85,85,85,85, 68,85,85,85,85,85,85,85,85,85,85,85,85, 
85,85,85,85, 6,85 }; 
ae is Mt ay RT et fete eee ee Ur A 10, 8, 8,0) 8,008, 218, 8 } 
S(p = ’ u's 7 
S(pll)= {1, "i', 12 }; 
S(p12)= {6, 81,81,81,81,81,81,81,81,81,81,81,81,81,81,81,81,81,81,81,81l, 
81, 8,81, 81,61 82: }% 
Sais oe Pee err OeB MidB Bs 88,0, 0,078, 0/8, 19,8 3 
S Pp = ’ n'y ? 
S(pl5)= {1, ‘d', 87 }; 
$(pl6)= {1,°°*r*, 27 Fe 
S(pl17)= {1, 's', 18 }; 
S(pl8)= {1, ‘e', 87 }; 
e(pls}= {1): 'p*, 20 ks 
S(p26)= {1, '‘e', 21 }; 
S(peiye.{1, te", 823 
S(p22)= [6, 0,6,0,8,0,0,6,0,8,8,0,0,86,69,0,0,0,0,8,0,0,8,0,8,8,8 }3 
S(p23)= {8@, 81,0,6,6,8,81,81,6,06,0,8,81,81,8,0,8,8,0,6,9,0,0,0,0,8,8 he 
pipes i (a, 701018, 21,0,6,6,0,6,0,0,0,0,0,0,0,25,0,0,0,0,0,0,0,0 1; 
p = ’ Or ; 
S(p26)= {1, "e', 27 }; 
S(p27)= {1,.-*x", 35° }; 
S{p2s)= {1 *is, 87 he 
S(p29)= {9, 38,0,8,0,0,0,6,0,36,6,0,8,0,0,9,0,0,0,8,0,37,0,0,9,8,8 he 
yu te Mehr ae Hat, Peer he Orbe O60, 850, 8, 05843350, 8,8, 35,8, 0 i? 
p = cr ; 
S(p32)= {1, 'o'. 83 }; 
S(p33)= {1, 'h', 34 }; 
S(p34)= {1, 'e', 82 }; 
S(p3S)* {2, i", 82 fr 
S(p36)= {1, 'n', 35 }; 
S(p37)= {1, '1", 38 }; 
S{p3e)= {1,. 't*, .6S=}y 
S(p39)= {1, 'o', 48 }; 
S(p48)= {1, 'n', 86 }; 
(Continued on page 38) 
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More Power Than You Thought Possible 


Arity offers the first serious implementation of Prolog for IBM personal computers. Arity/Pro- 
log is a powerful, highly optimized, and extended version of the logic programming 
language Prolog. Imagine building software applications with a language that solves prob- 
lems through deduction and logical inference. The task of creating complex programs is 
much faster and easier, resulting in lower development costs. Arity/Prolog is now in use in a 
wide range of applications in industry, business, research, and education. The solution— 
the Arity/Prolog Interpreter: 





@ Interface to assembly 


i Source level debugger language and 'C’ 





Bi Virtual databases, each M Text screen 

with a workspace of 16 manipulation 

megabytes 

ony Bi Integrated program- 

Bi Floating-point ming shell to MSDOS 

arithmetic 

: Hi Comprehensive set of 

Bi String support for evaluable predicates 


efficient text handling 





@ Definite clause 
grammar support 







Arity/Prolog Interpreter $495.00 


Arity also offers the Arity/Prolog Compiler and Interpreter, a sophisticated development envi- 
ronment for building Al applications. Essential for producing fast, serious production code. 


Arity/Prolog Compiler and Interpreter $1950.00 


The Arity/Prolog Demo Disk is available for $19.95. i Arity/Prolog products run on the IBM PC, 
XT, AT, and all IBM compatibles. ll To order, call (617) 371-2422 or use the order form below. 


— arity corporation 358 Baker Avenue, Concord, MA 01742 


i coe, ieee need gas aaa a i ee aS ea ee ae ae Se a es SS a  Sr an  e  ,  e e 


| Product | _UnitPrice | TotalPrice_| 
avityrolog 





Name 





Organization 





Address 





i 








1 Enclosed is a check or CZ Please bill my Subtotal 
money order to Arity Corporation (Mastercard (Visa (© American Express 
MA residents add 5% sales tax 
iowa. ded ed ed anaes 
a = signature CJ Please send me more information about 
Arity and Arity/Prolog 
—— @FIEY 358 Baker Avenue, Concord, MA 01742 M-AD-05 


Circle no. 16 on reader service card. 





UTILITIES 


Frb0 FASCA pRocRAMMERS 


Improve Code Performance 
Find Subtle Bugs 
Automate Tedious Tasks 





Supports Turbo Pascal 2.0 & 3.0 
IBM PC/XT/AT & True Compatibles 
PCDOS 2.X & 3.X 

192K RAM DSDD Drive 


If You Really Use Your 
Pascal Compiler You Need 
These Tools! 





e Pretty Printer 

e Pascal Structure Analyzer 
¢ Execution Profiler 

e Execution Timer 


Advanced Text Processing 
& Command Automation 





e Pattern Replacer 
e Difference Finder 
¢ Command Builder 
e File Finder 

¢ Super Directory 


Where Else Can You Get 
500K of Integrated, Useful, 
Tested, Fully Documented 
Source Code for $952 





e 140 Page Printed User Manual 

¢ Quick Reference Card 

¢ Detailed Programmer’s Manual on 
Disk 

e Advanced Subroutine Library 

¢ Complete Turbo Pascal Source Code 

¢ Compiled Programs Also Included 

¢ 6 Bonus Utilities! 

e Tax & U.S. Postage Included 

e Executable only version $55 


MC/Visa Orders TOLL FREE 
(USA) 800-538-8157 x830 
(CAL) 800-672-3470 x830 
Brochures, Questions, PO’s 

call 408-378-3672 


Checks or Money Orders 
TurboPower Software 
478 W. Hamilton Ave., Suite 196 
Campbell, CA 95008 U.S.A 





INTERNATIONAL REPRESENTATIVES — 

Switzerland: Software Haus 064 51 26 51 

Japan: Southern Pacific Ltd 045 314 9514 
England: The Core Store 0606 45420 


Turbo Pascal Is a Trademark of Borland International 


Circle no. 81 on reader service card. 
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C Chest 


(Listing continued, text begins on page 20) 


Listing Two 


723: 
724: 
too 
726: 
727: 
728: 
729: 
738: 
731: 
732: 


733: 
734: 
735: 
736: 
737: 
738: 
739: 
7463 
741: 
742: 
743: 
744: 
745: 
7463 
747: 
748: 
749; 
758: 
751: 
752: 
753: 
754: 
7553 
756: 
757: 
758: 
759: 
768: 
761: 
762: 
763: 
764: 
765: 
7663 
767: 
768: 
769: 
770: 
771: 
772: 
773: 
774: 
775: 
776: 
777: 
778: 
7793 
786; 
781: 
782: 
783: 
784: 
785: 
786: 
787: 


788: 
789; 
798: 
791: 
792: 
793: 
794: 
795: 
796: 
797: 
798: 
799: 
868: 
881: 
882: 
883: 
884: 
885: 
886: 
887: 
888: 
889: 
816: 
811: 
812: 
813: 
814: 
815: 
816: 


static char 


‘ 6,0,0,0,0,0,0,0,9,0,8,0,8,0,0,0,0,0,0,0,42,43,0,0,8,8 ‘3 
' 
5 Pe 5:87 
L* ta", ae 
g if oe 
sa ott ee 
go oF 
» Sat, 48 
Er ee 
° 
: ryt, 51 
a's. Seats 
‘a! 87 3 
0,6,0,0,54 
"m*, 28 3 
8 
’ 


=e 


~e se =e “8 Se Se Se SE 


— 
uw pe et ed et et eet eet 


,8,0,0,80,0,8,0,6,8,55,6,6,0,89,0,56,0,8,0,0,8 }; 


’ 

’ 

’ 

’ 

yee 

, 0,87,8,8, 

, 8,6,0,8,8 

oe eS Se 

po E68. Vy 

¢ O'S BE Ys 

, 62,6,0,8,89,8,0,9,68,0,6,0,8,0,60,0,8,0,9,0,0,0,6,0,8,0 }; 

Re SS }3 

poet 28 }; 

poet ye BS: F3 

ge RES OS 38 

, 85,85,85,70,85,85,85,85, 6,85,;85,85,85,85,85,85,85,85, 
85,85,85,85,85,85,85,85 }; 

Rgsc ke BP} 

{@, 81,0,0,60,0,81,6,0,0,0,0,0,8,0,9,80,0,6,0,9,81,8,0,8,6,8 he 

8, 85,85,85,85,85,85,85,85,85,85,85,85,85,85,85,85,85,85, 

85,24,85,85,85,85,85,85 }; 


ieee FT: 


*Prefixes[] = 


p®8, pl, p2, p3, p4, p5, p6, p7, p8, p9, 
pl@, pll, pl2, pl3, pl4, pl5, pl6, pl7, pl8, pl9, 
p20, p21, p22, p23, p24, p25, p26, p27, p28, p29, 
'p3@,-pal, p32, p33, p34, p35, p36, p37, p38, p39, 
p48, p4l, p42, p43, p44, p45, p46, p47, p48, p49, 
p58, p51, p52, p53, p54, p55, p56, p57, p58, p59, 
p68, p61, p62, p63, p64, p65, p66, p67, p68, p69, 
p7@ 
}3 
/*emreersesaseses seer er eceseeeasarecseneessccercessesssecesssseeeseeeces 
* 
* MSC DEBUGGING ROUTINES (INCLUDING A MAIN MODULE): 
“f 
#ifdef DEBUG 
bprint( b, e ) 
ATYPE *b, *e; 
{ | 
/* Print all characters between b and e inclusive */ 
while( b <= e && *b ) 
putchar( *b++ & Ox7E£ ); 
} 
/* Oe ee a we rm ww i ee ee ee ee ee eee ee eee ee wwe */ 
char *sgets( prompt, buf, maxch ) 
char *prompt, *buf; 
{ 
/* Print prompt to stdout, then fill buf fm stdin. Get at most 
* maxch characters. Return pointer to string terminator (ie. the 
* null at the end of the string) or # on end of file. 
%/ 
register int C3 
register char *start; 
start = buf; 
printf£( prompt ); 
while( (c = getchar()) != EOF && c != '\n' && --maxch > @ ) 
*buf++ = c; 
*buf = 6; 
return (c == EOF && start == buf) ? (char *)8 buf ; 
} 
/* a ee a re ee ea ee ee Ie a ea SNe Sm Sie es ale rmination i ek Ss fas fais aa tf chs bw ow in ate "ey end Sins Te wes wate ad e's a * / 
phyphen( p ) 
ATYPE *p; 
{ 
/* Print a word with all the hyphens visible 
af 


printf£("<"); 
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817: 


818: for( ; *p ; putchar(*p++ & Ox7f) ) 
819; if-( HAS_HYPHEN (*p) ) 
828: putcharc(*-'); 
821: 
822: printf£(">\n"); 
823: } 
824: 
B25: [Bannan nn nn */ 
826: 
827: main(argc, argv) 
828: int argc; 
829: char **targv; 
8306: { 
831: char byf [132], “ps3 
832: 
833: if( arg¢e:> 2°} 
834: Debug = 1; 
835: 
836: while( p = sgets( "word: ", buf, 132 ) ) 
837: { 
838: if( !*buf ) 
839: printf ("\n"); 
848: 
841: elee- if ¢ p-- =>. Dut.) 
842: { 
843: hyphen( buf, p ); 
844: putchar('\t'); 
845: phyphen( buf }; 
846: 
847: } 
848: } 
849: 
850: #tendif 
End Listing Two 
e e 
Listing Three 
Diipdiesge ee ek ee ee Se RS SS SS ne Se ee RO + 
| Diagnostic output from hyphen.c when compiled with the DEBUG idartned: | 
Aha pi as aren a hi ery stn eae atin aren a Geena nae em om mer eS op rey Hiei a ani mm cere Semen + 
word: be/cxxxe/able <be-cxxxe-able> 
word: be/hxxxh/able <be-hxxxh-able> 
word: be/sxxxi/able <be-sxxxi-able> 
word: be/wxxxk/able <be-wxxxk-able> 
word: com/xxxl/able <com-xxxl-able> 
word: con/xxxo/able <con-xxxo~able> 
word: dis/xxxu/able <dis-xxxu-able> 
word: equi/xxv/able <equi-xxv-able> 
word: ex/xxxxw/able <ex-xxxxw-able> 
word: hand/xxxxxx/able <hand-xxxxxx-able> 
word: horse/xxxxy/able <horse-xxxxy-able> 
word: hyper/xxxnt/able <hy-per-xxxnt-able> 
word: im/xxxxxxrt/able <im-xxxxxxrt-able> 
word: in/xxxxxxion/ary <in-xxxxxxion-ary> 
word: inter/xxxxen/ary <in-ter-xxxxen-ary> 
word: intro/xxxxx/nary <in-tro-xxxxx-nary> 
word: lexi/xxxxxxx/cal <lex-i-xxxxxxx-cal> 
word: macro/xxxxa/cate <mac-ro-xxxxa-cate> 
word: mathe/xxxxe/cate <math-e-xxxxe-cate> 
word: maxi/xxxxxi/cate <max-i-xxxxxi-cate> 
word: mini/xxxxxo/cate <min-i-xxxxxo-cate> 
word: multi/xxxxu/cate <mul-ti-xxxxu-cate> 
word: non/xxxxxxy/cate <non-xxxxxxy-cate> 
word: out/xxxxxxx/cial <out-xxxxxxx-cial> 
word: over/xxxxx/cious <over-xxxxx-cious> 
word: pseudo/xx/scious <pseu-do-xx-scious> 
word: quad/xxxxx/cient <quad-xxxxx-cient> 
word: semi/xxxxxx/dent <semi-xxxxxx-dent> 
word: some/xxxxxxx/ful <some-xxxxxxx-fui> 
word: sub/xxxxxxxl/ize <sub-xxxxxxxl-ize> 
word: super/xxxxa/late <su-per-xxxxa-late> 
word: there/xxxxe/late <there-xxxxe-late> 
word: trans/axxxi/late <trans-ax-xxi-late> 
word: trans/fxxxo/late <trans~fxxxo-late> 
word: trans/gxxxu/late <trans-~gxxxu-late> 
word: trans/lxxxy/late <trans-lxxxy-late> 
word: trans/mxxxx/less <trans-mxxxx~less> 
word: tri/axxxxxxxx/ly <tri-ax-xxxxxxx-ly> 
word: tri/£xxxxxxxx/ly <tri-f£xxxxxxxx-ly> 
worg: tri/uxxxxxxxx/ly <tri-ux-xxxxxxx-ly> 
word: under/xxxxx/ment <un-der-xxxxx-ment> 
word: un/xxxxxxxx/ness <un-xxxxxxxx-ness> 
word: /xxxxx/ogy <xxxxXx-Ogy> 
word: /xx/rapher <xx-rapher> 
word: /xxx/raphy <xxx-raphy> 
word: /xxx/scope <xxx-scope> 
word: /xx/scopic <xx-scopic> 
word: /xxx/scion <xxx-scion> 
word: /xx/sphere <xx-sphere> 
word: /xxxxx/tal <xxxxx-tal> 
word: /xxxx/tial <xxxx-tial> 
word: /xxxx/tion <xxxx-tion> 
word: /xx/tional <xx-tion-al> 
word: /xxxx/tive <xxxx-tive> 
word: /xxxx/ture <xxxx-ture> 
word: /xxxxxl/ing <xxxxxl-ing> 
word: famed ies. <xxxxl-ing> 
word: /xxxg/gling <xxxg-gling> . 
word: /xxxa/bling <xxxa-bling> (Continued on next page) 
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Is $19.97 too 
much to spend 
to avoida 
million dollar 
mistake? 





Business Software 
magazine is a valuable resource 
that helps you squeeze every 
penny’s worth of potential out 
of your computer system. It 1s 
written for the business person 
and decision maker who wants 
practical, ““hands-on”’ software 
solutions to real problems, 
written in a straightforward, 
jargon-free language. Every 
month, Business Software 
brings you: case studies of 
business computer applications; 
company profles, including 
who is using what software and 
why; software tutorials that 
explain what the manual left 
out; information on the latest 
products, as well as the 
longtime favorites, all from a 
business perspective. 


To subscribe, please fill out this 
coupon and return it to: 


Business Software, 
P.O. Box 27975, 
San Diego, CA 92128 
Name 
Address 
City 
State pos ea 
Bill my [_] VISA | JM/C 
[_] Bill me later [_] $19.97 
Card No. 
Expiration date 
Signature 
Please allow 6-9 wecks for address change to take effect 3031 
eee ee ee 
3043 
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RowiNnG OLD? 


... Waiting 
for C programs to 
compile and link? 





Use C-terp 
the complete C interpreter 


This is the product you've been 
waiting (and waiting) for! 


Increase your productivity and avoid 
agonizing waits. Get instant feedback of 
your C programs for debugging and rapid 
prototyping. Then use your compiler for 
what it does best...compiling efficient code 
.. SIOWLY. 


C-terp Features 


¢ Full K&R C (no compromises) 


® Complete built-in screen editor-- 
no half-way house, this editor has every- 
thing you need such as multi-files, inter-file 
move and copy, etc. etc. For the ultimate 
in customization, editor source is available 
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C Ch es f (Listing continued, text begins on page 20) 


Listing Three 


word: /xxxck/ling 
word: /xxxg/kling 
word: /duck/ing 
word: /fit/ting 
word: /hiss/ing 
word: /swell/ing 
word: /fic/tion 
word: /fic/tional 
word: /fic/tionalize 
word: /fic/tionalized 
word: /fic/tionalizes 
word: /uuuccuuu/ 
word: /uuuquuuu/ 
word: /uuuckuuu/ 
word: /uuuccuuu/ 
word: /uuuchchuu/ 
word: /uuughghuu/ 
word: /uuuphphuu/ 
word: /uuushshuu/ 
word: /uuuththuu/ 
word: /uuuxxxxxx/ 
word: /uuullaxxxx/ 
word: /uuussexxxx/ 
word: /uuufteee/e 
word: /uuuxxer/ 
word: /uuuxxer/s 
word: /uuuxxag/e 
word: /uuuxxage/s 
word: /uuuxxest/ 
word: 


word: <Test repetetive suffix and prefix removal:> 


word: 


word: disiminnonoverun/en/aryfulizelesslymentableness 


<xxxck-ling> 
<xxxg-kling> 


<duck~ing> 
<fit-ting> 
<hiss-ing> 
<swell-ing> 
<fic-tion> 


<fic-tion-al> 
<fic-tion-al-ize> 
<fic-tion-al-ized> 
<fic-tion-al-izes> 


<uuuc—cuuu> 
<uuu-quuuu> 
<uuuckK~uuu> 
<uuuc—cuuu> 


<uuuch-chuu> 
<uuugh-ghuu> 
<uuuph-phuu> 
<uuush-shuu> 
<uuuth-thuu> 
CuuuUX-XXXXX> 
<uuul-lax-xxx> 
<uuus-Se@x-xxx> 
<uuuf-teeee> 


<uuux-xer> 
<uuux-xers> 
<uuux-xage> 


<uuux~xages> 


<uuux-xest> 


<dis-im-in-non-over-un-en-ary-ful-ize-less-ly-ment-able-ness> 


word: 


word: super/califragilisticexpialido/cious 
<su-per-califragilis-ticex-pialido-cious> 


word: 


word: <All words following this point test exceptions to> 
word: <the hyphenation rules and shouldn't be hyphenated, > 


word: 

word: /uuussx/ 
word: /uuullx/ 
word: /uuuller/ 
word: /uvuller/s 
word: /uuubluu/ 
word: /uuubruu/ 
word: /uuucluu/ 
word: /uuucruu/ 
word: /uuvuchluu/ 
word: /uuuchruu/ 
word: /uuudguu/ 
word: /uuudruu/ 
word: /uuufluu/ 
word: /uuufruu/ 
word: /uuughtuu/ 
word: /uuugluu/ 
word: /uuugruu/ 
word: /uuuknuu/ 
word: /uuulkuu/ 
word: /uuulquu/ 
word: /uuunchuu/ 
word: /uuunkuu/ 
word: /uuunxuu/ 
word: /uuuphruu/ 
word: /uuupluu/ 
word: /uuupruu/ 
word: /uuurkun/ 
word: /uuuspuu/ 
word: /uuusquu/ 
word: /uuutchuu/ 
word: /uuutruu/ 
word: /uuuthruu/ 
word: /uuuwhuu/ 
word: /uuuwluu/ 
word: /uuuwnuu/ 
word: /uuuwruu/ 
word: /uuufter/ 
word: /uuufter/s 
word: /uuuftag/e 
word: /uuuftage/s 
word: /uuuftest/ 
word: /uuulder/ 
word: /uuumper/ 
word: /uuunder/ 
word: /uuunger/ 
word: /uuunser/ 
word: /uuunter/ 
word: /uunraer/ 
word: /uuurner/ 
word: /uuurter/ 
word: /uuuster/ 


<uuussx> 
<uuullx> 
<uuuller> 
<uuullers> 
<uuubluu> 
<uuubruu> 
<uuucluu> 
<uuucruu> 
<uuuchluu> 
<uuuchruu> 
<uuudgquu> 
<uuudruu> 
<cuuufluu> 
<uuuf ruu> 
<uuughtuu> 
<uuugluu> 
<uuugruu> 
<uuuknuu> 
<uuulkuu> 
<uuulquu> 
<uuunchuu> 
<uuunkuu> 
<uuun xuu> 
<uuuphruu> 
<uuupluu> 
cuuupruu> 
<uuurkuu> 
<uuuspuu> 
<uuusquu> 
<uuutchuu> 
<uuut ruu> 
<uuuthruu> 
<uuuwhuu> 
<uuuwluu> 
<uuuwnuu> 
<uuuwruu> 
<uuufter> 
<uuufters> 
<uuuftage> 
<uuuftages> 
<uuuftest> 
<uuulder> 
<uuumper> 
<uuunder> 
<uuunger> 
<uuunser> 
<uuunter> 
<uuurqer> 
<uuurner> 
<uuurter> 
<uuuster> 


End Listings 
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A Threaded-Code 
Microprocessor 
Bursts Forth 


Subroutines Without 
Performance Anxiety 


by Leo Brodie 


Subroutine calls in one clock cycle are 
one advantage as Forth goes to silicon. 
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threatens to shake most of our beliefs about micro- 

processor design. What implications does this new 
technology have for the art of programming? This article 
will explain the techniques used by Forth and by the 
NC4000 microprocessor, and explore the impact of this 
technology on software design. 


Ts Novix NC4000 processor has arrived, and it 


Subroutines: The More the Better 

Most programmers recognize the importance of dividing 
a large, complex program into a group of smaller, man- 
ageable pieces. The use of smaller ‘“‘modules” is advanta- 
geous for the following reasons: 


esmaller pieces of code are easier to think about, and 
therefore easier to design and to write; 

¢ smaller pieces of code are easier to debug; the likelihood 
of introducing a bug is reduced, and, if one does appear, it 
will be easier to find; 

¢ different parts of a program may be assigned to different 
programmers; | 

* subroutines can be used to hide information about things 
that might change in subsequent revisions; if a change 
must be made to a program, only the subroutine has to be 
changed. 


Unfortunately, most conventional high-level languages 
(HLLs) are not optimized for the invocation of subrou- 
tines. One problem is the loss of time caused by saving 
registers before a jump to a subroutine and restoring them 
afterwards. This has been estimated as 40% of program 
execution time. Even more time-consuming is the invisi- 
ble but significant code needed to pass arguments to and 
from the subroutine. At the machine level as well, proces- 
sors are not generally optimized for invoking subroutine 
calls. | 

For these reasons, although the use of many, small sub- 
routines is an ideal, nevertheless, in practice, program- 
mers tend to writer fewer, larger subroutines. When effi- 
ciency is at stake, it’s hard to appreciate the elegance of 
subroutines. 

There is a high-level programming language optimized 
for subroutines: Forth. And now, a single-chip micropro- 
cessor is available that applies Forth’s optimization tech- 
niques directly to a silicon architecture. The result is a 
machine that can execute high-level subroutine calls and 
returns in a single clock cycle! 


Threaded Code 

Let’s begin by examining what the inherent architecture 
of Forth is, regardless of which processor it runs on. Forth 
is implemented using a technique called “threaded code.” 
Suppose we define a word in Forth called PROCESS, con- 
sisting of three operations. 


PROCESS SIERP LE STERZ STEPS: 


In this definition, the name of the word (subroutine) is 
PROCESS. It consists of three lower-level subroutines. The 
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colon begins the definition, while the semicolon ends it. 

Figure | (page 44) shows what this definition looks like 
when compiled into memory on an emulated Forth sys- 
tem. Such a definition consists of the following parts: 

























¢ The name field contains an ASCII representation of the 
word’s name, so that the word can subsequently be found 
and executed. 
¢ The link field points to the previous definition in the 
linked list of dictionary entries. (A search through the 
dictionary for a given word begins with the most recently 
defined word, and, using the link field for each word, pro- 
ceeds backwards through the chain or chains of words. ) 
*The code pointer field points to machine-executable 
code that is generic to each “family” of definitions. As yet 
we have only discussed colon definitions; we will intro- 
duce other types later. 
¢ The remainder of the definition is a list of addresses of 
other routines. Depending on the processor, these ad- 
dresses are usually 16- or 32-bit numbers. In this exam- 
ple, the addresses of the routines STEP1, STEP2, and 
STEP3 are listed. At the end of the list is the address of 
another routine called EXIT, which is compiled by the 
semicolon and which terminates the definition when it is 
executed. 


The unusual thing about threaded code is the absence of 
any CALL instructions—everything is a subroutine. Defi- 
nitions consist simply of addresses of other definitions. As 
we'll see, even data structures are defined as dictionary 
entries, so that their addresses appear in definitions when 
referenced. 

If you expand your imagination a bit, you can view 

these addresses as actual instructions, since each address 
is unique. This is exactly the way they are viewed by the 
Forth machine, and in particular, by the routine called 
the ‘‘address interpreter,’ also known as NEXT. 
It is the function of the address interpreter to execute 
each “Forth instruction” in turn. This function is analo- 
gous to the operation of a machine processor wherein each 
opcode is interpreted and the program counter advanced. 
An “interpreter pointer,” called I (usually a register in 
the real processor) operates analogously to the processor’s 
program counter: during execution of any Forth instruc- 
tion, I points to the next instruction to be executed; it is 
incremented by the address interpreter. 

To begin with the simplest case possible, let’s assume 
that each of the definitions STEP1, STEP2, and STEP3 is 
defined in machine code—they are not high level Forth 
definitions. (Forth allows routines to be coded in high- 
level code or in machine code without distinction; in prac- 
tice, however, only a handful of time-critical or hardware- 
dependent routines must be machine-coded.) Here’s what 
happens, in somewhat simplified form for now. I is point- 
ing to the first address in the definition of PROCESS; this 
is the address of STEP1. The address interpreter, NEXT, 
first advances I to the next cell (the one containing the 
address of STEP2), then jumps to STEP1. STEP! is a ma- 
chine code definition, executed in the normal way by the 
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Figure 1 
A compiled definition in the dictionary of an emulated Forth 
system 
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“colon definition” 





(2 _Next 
a machine-code 
definition 
| Figure 2. 
The code pointer of an assembler definition (e.g., STEP1) 
points to its own definition. The code pointer of a high-level 


definition (e.g., PROCESS) points to a prologue routine called 
CALL. 
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P| adr of STEPS | 


EXIT 








return stack 


Figure 3 
When STEP2's CALL routine is invoked, it saves | (the inter- 
preter pointer) on the return stack, puts the address of the 
body of STEP2’s definition in |, then invokes NEXT. 


ag 


underlying processor. The final piece of code in STEP] is 
NEXT once again (either in-line or as a jump instruction, 
depending on whether performance is a more or less im- 
portant consideration than memory usage in the particu- 
lar hardware configuration). This second NEXT incre- 
ments I to the third cell, then jumps to STEP2, and so on. 

Each machine-coded definition (called a primitive) 
must end by executing the code for NEXT to keep the 
Forth machine running. 

In the preceding discussion, we omitted one important 
detail. The address interpreter does not jump to the ad- 
dress of each new instruction, but rather to the code 
pointed to by the code field of each new instruction—one 
added level of indirection. Figure 2 (at left) shows this 
relationship. 

In the case of a machine code definition, the code field 
points to the body of the definition itself, where the actual 
machine instructions have been compiled. In the case of 
all colon (high-level) definitions, however, the code field 
points to a single routine in memory that we will name 
CALL. Essentially this routine handles the job of nesting 
definitions, so that one high-level word may invoke anoth- 
er word, which in turn invokes another, and so on. 

Here is what CALL does, step by step. Using our previ- 
ous example, let’s now suppose that STEP2 has been de- 
fined as a colon, or high-level, definition. We are execut- 
ing PROCESS, and have just completed STEP1. I (the 
interpreter pointer) is pointing to the address of STEP2. 
The address interpreter advances the pointer in anticipa- 
tion of the return, then gets the address of STEP2. Using 
this address, it jumps to the address pointed to by the code 
pointer field of STEP2. Since STEP2 is a high-level defini- 
tion, the routine at this address is CALL. This routine 
saves I on a special stack for return addresses called the 
return stack. It then places into I the address of the begin- 
ning of the instruction list in STEP2 (see Figure 3, at left). 
This done, CALL executes NEXT. Thus the Forth ma- 
chine continues as before, but has nested in a level. 

The opposite of the CALL function is EXIT, which ter- 
minates each high-level definition. When the EXIT in 
STEP2 is encountered, it pops the top of the return stack 
back into the interpreter pointer, thus resuming execution 
of PROCESS at the address of STEP3. 

Because of the extra level of indirection offered by the 
code pointer field, the architecture we’ve described has 
been called indirect threaded code (ITC). 

The value of the code pointer field is that each word 
knows what kind of procedure it is, and how to invoke 
itself. This is what makes it possible in Forth to design a 
routine first in high-level code, then to rewrite it in ma- 
chine code without changing any code elsewhere that in- 
vokes the routine. 

Each family of data structures in Forth uses a unique 
prologue routine, pointed to by the code fields of all mem- 
bers of that family. A simple example is the constant, as 
illustrated by Figure 4 (page 45). A Forth constant is a 
dictionary entry, possessing the same type of header 
structure as all dictionary entries. Its body consists of a 
code pointer for all constants, along with the value of the 
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constant. The code pointer points to a routine, which we 
will call ‘“‘do-constant,” whose job it is to fetch the value 
from the body of the constant, then invoke NEXT. 























The Forth Engine in Silicon 

In indirect threaded code implementations of Forth as just 
described, the invoking of words is elegant and more effi- 
cient than the calling of subroutines in other high-level 
languages. However, because conventional microproces- 
sors are not optimized for ITC, running the Forth machine 
involves some performance overhead. This overhead con- 
sists of the time spent executing NEXT after each machine 
instruction, plus the time spent for each call and return. 
Running high-level Forth versus straight machine code can 
increase execution time by as much as 100 percent (which 
is still better than other high-level languages). 

A primary goal of the NC4000 architecture is to allow 
the execution of threaded code with as little overhead as 
possible. This goal is achieved first by eliminating NEXT 
as a software routine. Instead, NEXT has become the 
background to the chip’s operation. The overhead of 
NEXT is reduced from many clock cycles to less than one 
(see Figure 5, at right). 

Secondly, the NC4000 reduces the normal overhead of 
the CALL operation. In fact, it achieves this goal to the 
utmost degree possible: a subroutine call executes in a 
single clock cycle. Compare this with the 15 clocks re- 
quired by the 8086 to effect a machine-level subroutine 
call. A high-level language such as C will require still 
more instructions to effect a jump to subroutine. 

How does the NC4000 achieve these results? One of 
the bits (the MSB) of the 16-bit opcode is reserved exclu- 
sively to indicate a subroutine call. For all ordinary ma- 
chine instructions, this bit is one; but if this bit is zero, the 
NC4000 effects a call to the subroutine whose address is 
specified by the remaining 15 bits. Thus, colon definitions 
appear as compiled object code as shown in Figure 6 (at 
right). 

As you can see, compiled object code for the NC4000 
consists of a mixture of actual machine instructions and 
single-instruction subroutine calls to definitions. In other 
words, the NC4000 executes high-level Forth threaded 
code as its native machine language. 

Of actual machine instructions the NC4000P boasts 
over 170 combinations, not including permutations of 
register addressing. These include the usual Forth primi- 
tives for data-stack manipulation, arithmetic, memory, 
register, and I/O fetches and stores, jumps and loops— 
even multiply, divide, and square root steps. 

The use of the high-order bit enables the chip’s logic to 
decode each instruction early in the clock cycle. If the 
instruction is a CALL, then the address represented by the 
remaining 15 bits will appear on the address bus in time 
for the appropriate instruction (in the called routine) to 
be latched and executed on the next cycle. 

The NC4000 does even better with the EXIT routine. 
Another of the 16 bits in the opcode (octal 40) is reserved 
exclusively to indicate the return operation. The return 
can occur simultaneously with other operations of the 
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Figure4  . 
A Forth constant is a normal dictionary entry whose code 
pointer points to a routine common to all constants. 
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Figure 5 
Comparison of overhead for NEXT 
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Figure 6 
A definition list on the NC4000. 
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ALU. In a single clock cycle, a word can perform its last 
operation and return to the word that invoked it. Thus, in 
most cases, there is no overhead for the EXIT operation. 

One consequence is that program space is limited to 
32K addresses. Since the NC4000 uses word addresses, 
not byte addresses, the program may occupy 64K bytes of 
memory. Given the extreme compactness of threaded- 
code systems in general, and of this instruction set in par- 
ticular (each instruction can perform up to five operations 
simultaneously), 64K of program memory will contain a 
considerable amount of code compared to traditional SYyS- 
tems. Since memory operators use full 16-bit addresses, 
program size may be further compacted by placing data 
buffers and tables above the 32K word boundary instead 
of in the program region. For those who still aren’t satis- 
fied, Novix is currently considering development of a 32- 
bit version of the NC4000 architecture. 

A necessary ingredient in this design is the implemen- 
tation of a return stack in hardware. The return stack can 
be expressly manipulated by the programmer, but it is 
also controlled automatically by the CALL and EXIT Op- 
erations of the processor. The NC4000 features a unique 
parallel architecture that allows the return stack to oper- 
ate simultaneously with other CPU operations. 

Notice in Figure 6 that the code field is no longer need- 
ed, because Forth is the native machine code of the 
NC4000. The CALL routine, for instance, which serves as 
the prologue for colon definitions, now exists in processor 
logic, and is invoked whenever bit 15 is zero. In the case of 
constants, the pointer to the old ‘“‘do-constant” routine 
can now be replaced by a literal-fetch instruction. 

In fact, each dictionary entry, whether a definition, a 
constant, variable, array, or what-have-you, is most effi- 
ciently compiled as a definition and directly executed. 
Thus, the Novix processor uses “‘direct-threaded-code” 
(DTC), not ITC. 

To summarize, the NC4000 realizes the Forth machine 
directly in silicon logic, without even resorting to micro- 
code. As a result, it supports a subroutine call and return 
with an overhead of one clock cycle in most instances, and 
never more than two. Comparable CALL and RET in- 
structions on the 8086 require a total of 34 clock cycles 
(and each 8086 cycle is two to five times slower than that 
of the Novix prototype). 3 


The Software Implications 
What does all of this mean to the programmer? It is easily 
demonstrated that the NC4000 runs faster than conven- 
tional micros. Because Forth instructions execute in a sin- 
gle clock cycle, the chip runs Forth code about 100 times 
faster than Forth running on a conventional processor. A 
benchmark using the Sieve of Eratosthenes reveals that the 
NC4000 runs Forth over 10 times faster than the 68000 
runs its own machine code. (This benchmark was made on 
the NC4000P, the initial CMOS gate-array prototype; fu- 
ture revisions will increase the speed considerably. ) 

But these benchmarks only begin to show the potential 
power of the NC4000 architecture. A benchmark such as 
the Sieve represents a straightforward algorithm, which is 
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best coded in the linear terms of conventional processors. 
There is nothing to be gained by decomposing such an 
algorithm into smaller modules. Although a 10-times 
speed improvement is nothing to be ashamed of, the Sieve 
benchmark doesn’t let the NC4000 show its true stuff. 

The real wonder of the Novix chip is that it allows 
execution of an elegant, high-level, modular language di- 
rectly in the logic of the CPU. 

Forth and the NC4000 offer three distinct benefits in 
terms of programming methodology. The first is the inter- 
changeability of a word without affecting any code that 
invokes the word. The second is the ability to use words, 
which tend to be shorter and simpler, instead of subrou- 
tines which tend to be longer. The third is that more effhi- 
cient subroutines encourage greater freedom in the use of 
modular programming. Let’s examine these points more 
closely. 


Interchangeability 

In the world of software development, it’s no longer enough 
just to get a program running. The program must also be 
able to be maintained and easy to change. Why would a 
program ever need to change, once it’s running? You may 
need to upgrade the program to run on newer equipment. 
You may need to add more sophisticated features to keep 
up with the competition. In fact, most software groups find 
themselves writing families of programs; that is, they write 
many versions of related programs in their application 
field, each a variant on an earlier program. 

To be maintainable, a program must be easy to read, 
easy to understand, and, most importantly, structurally 
durable. By this I mean that you can rewrite a section of 
the program without having the whole thing collapse. 

Here is an example of how Forth encourages structur- 
ally durable code. Suppose we have a variable called STA- 
TUS. In Forth this is defined as 


VARIABLE STATUS 


One component of our application, a device driver, for 
example, writes into STATUS, another component reads 
STATUS. References to STATUS are present throughout 
the program. 

In Forth, variables are locations that can be acted up- 
on. For instance, in the phrase 


STATUS @ 


the word @ (pronounced “‘fetch”) fetches the value of 
STATUS. In the phrase 


STATUS _! 


the word ! (pronounced “‘store’’) stores a given value into 
STATUS. In either phrase, the execution of the word STA- 
TUS is the same: it merely returns the address of the loca- 
tion of its data. This address is then used by the @ or ! 
operators (or by any other memory manipulation 
operation). 


Dr. Dobb’s Journal, October 1985 





FROM 


DISK/COVERS 












MAIN/FRAMES $400 
es INCLUDING 
me POWER SUPPLY 


a ee 
WINCHESTER 











BUILT LIKE 


A TANK — 
Tr WON'T 
ome BREAK 


THE BANK! 





















am Ee 4 Piece: Prices lower in quantity. 
Os SES GS SS, ees eee es ee ee eT ss a aw 





5” Floppy & 
Winchester 
4Cards $100 .*== 






8” Floppy 
& 5” Winchester 


7 Cards S100 | 








5” Floppy 
& Winchester | 
re ™ 10 Cards S100 | 


STANDARD $565°* 
MODELS aoe 


ed i ee ee Ee 











pe). ai 
A 33 
WHAT 
bela |ssey7 (Disk drives and computer cards not included.) 
ee Write or call for our brochure which includes our 
en application note: “Making micros, better than 
any ‘ol box computer.” 


—INIECKINID 
RESEARCH CORPORATION 


8620 Roosevelt Ave./Visalia, CA 93291 
209/651-1203 


ue we cee We accept BankAmericard/Visa and MasterCard 


ERO 








Circle no. 15 on reader service card. 


47 


Now suppose we must write the next generation of the 
program. This time we are monitoring ten devices instead 
of just one and we must handle a STATUS variable for 
each of them. What we need is a ten-cell array and a 
pointer to the cell in the array for the current device. In 
Forth we merely define: 


CREATE STATUSES 20 ALLOT (10 cells) 
VARIABLE DEVICE ( number of current device) 
STATUS (-—- adr) 
DEVICE @ 2* SLATUSES:-F x 


On the first line we have defined a 10-cell array (20 bytes) 
called STATUSES. On the second line we’ve created a 
variable that will contain the number of the current de- 
vice (between 0 and 9). On the third line we’ve defined the 
word STATUS to fetch the number of the current device, 
multiply this by two (to compute the offset into the array 
in bytes), then add it to the address of the top of the array. 
The result is the address of the cell containing the status 
for the current device. 

Now the other components of the application may 
write 


STATUS @ 


and 


STATUS:s:! 


as before, even though we have changed the definition of 
STATUS from that of a variable to a colon definition — 
from a data structure to a procedure. Forth allows us to 
hide the details of how STATUS is defined from the code 
that uses it. What appears to be a thing (a variable) to the 
original code is actually defined now as an action. 


Words, Not Subroutines 
Strictly speaking, Forth words are no different than ordi- 
nary subroutines. However, because they are optimized, 
and because they require no special calling command in 
the code that invokes them, Forth encourages a finer 
granularity in the decomposition of an application. In 
other words, Forth words tend to be much shorter and 
more numerous than typical subroutines in other lan- 
guages. This characteristic imparts a style that is unique 
to Forth, and it is one of its most difficult characteristics 
to describe. 

Here is an example of a collection of subroutines that 
might be written in a conventional language: 


ENABLE-LEFT-MOTOR 
ENABLE-RIGHT-MOTOR 
DISABLE-LEFT-MOTOR 
DISABLE-RIGHT-MOTOR 
ENABLE-LEFT-SOLENOID 
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ENABLE-RIGHT-SOLENOID 
DISABLE-LEFT-SOLENOID 
DISABLE-RIGHT-SOLENOID 


In Forth one might replace these eight subroutines with 
these six words: 


ENABLE 
DISABLE 
LEFT 
RIGHT 
MOTOR 
SOLENOID 


Now our syntax reduces to simple, English words, com- 
bined in useful phrases: 


ENABLE LEFT MOTOR 
ENABLE RIGHT MOTOR 
Fic. 


Not only do we reduce the number of routines from eight 
to six, we also make each word’s definition much shorter 
and simpler. The following listing shows how little code 
we might need to define the syntax: 


~1 CONSTANT ENABLE ( all ‘“‘one’’s) 
0 CONSTANT DISABLE ( all zeros) 


1 CONSTANT LEFT (bit mask) 
2 CONSTANT RIGHT (bit mask) 
- MOTOR (action side —- —) MOTOR SET-BIT ; 
: SOLENOID (action side — —) SOLENOID SET-BIT ; 


We have defined the word SET-BIT to require three argu- 
ments: a flag, either all ones or all zeros; a bit-mask, with 
a “1” indicating the desired bit; and an address. SET-BIT 
sets the bit indicated by the mask at the given address 
according to the given flag. The words "MOTOR and ’SO- 
LENOID provide the hardware addresses of the ports that 
communicate to the motor and solenoid respectively; bits 
zero and one of these addresses control the left and right 
devices, respectively. 

In well-written Forth code, the average definition con- 
sists of only seven words, and fits within a single line of 
code (or two lines if a long comment is used). Few other 
languages encourage you to create subroutines called 
LEFT and RIGHT, merely to act as “adjectives. ’ Nor 
would you find routines such as MOTOR that consist of 
only two other words. 

In conventional programming languages, subroutines 
tend to be longer and more complex, covering many possi- 
ble options. A conventional subroutine will contain a 
number of conditional branches, so that it can decide how 
to behave depending on the desired function. Typically, 
many of these decisions shouldn’t have to be made at run- 
time; they arise only because the subroutine is too gener- 
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al. It has not been decomposed sufficiently. 

The product of good decomposition is simplicity. Sim- 
plicity is the key not only to efficient, compact programs, 
but also to programs that are easy to write and, therefore, 
easy to test and debug. They are also easy to understand 
and, therefore, easy to maintain. 


Modularization 

The third way that optimized subroutines can enhance pro- 
gram maintainability is by allowing the program designer 
to break the application into very small, useful modules. 
Modularization is the key to well-written Forth code. 

Modularization is more than merely chopping code up 
into small pieces. There is no way to automate good modu- 
larization. It is something that arises from the program- 
mer’s intimate understanding of the problem being solved. 
Allowing the problem to decompose itself naturally is a 
critical part of the early design phase—one that requires 
the programmer’s experience, sensitivity, and artistry. 

The best use of modularization is to decompose the ap- 
plication into components. A component is a resource, 
such as a UART driver, a queue, a linked list, a stack, etc. 
Each resource will typically consist of a number of func- 
tions and data structures. 

The idea of component programming is to define all 
these functions and data structures in the same place, not 
scattered throughout the program as they are needed. 
The primary advantage is the ability to change the com- 
ponent if necessary by editing code in only one location. 
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In Forth, component programming means creating a 
set of names (words) to represent the functions and struc- 
tures of each component. The set of words veil the inter- 
nal algorithms and structures, the “how it works.” They 
present only a conceptual model of the compenent de- 
scribed in natural language, the ‘“‘what it does.” 

These words then become the language for describing 
the data structures and algorithms of components written 
at a higher level. The ““what” of one component becomes 
the “how” of a higher-level component. A Forth applica- 
tion is nothing but a collection of components. 

Thus, Forth programming consists of extending the 
root language toward the application, providing new com- 
mands that can be used to describe the problem at hand. 
Forth is an environment for creating “‘application-orient- 
ed languages,” i.e. , programming languages designed for 
particular applications. Examples include robotics lan- 
guages, control languages, data acquisition languages, 
and music languages. 


Conclusion 

Charles Moore, the creator of Forth and chief architect of 
the NC4000 processor, has claimed that the Forth chip 
represents ‘‘a landmark in the evolution of hardware and 
software. This article has only tapped the surface of the 
many revolutionary hardware features of the NC4000. Its 
high-speed computation and I/O characteristics have 
made the processor immediately interesting to engineers 
concerned with bandwidth in applications such as tele- 
communications and signal processing. 

Its virtues are not limited to hardware features and 
real-time applications, however. I hope that this article 
has at least suggested some of the elegance of the proces- 
sor’s native language, and that you will have a chance to 
experience its unique style on your own. 


Note 

For more information on threaded code languages, refer 
to: “An Architectural Trail to Threaded-Code Systems,” 
by Peter M. Kogge, in Computer, March 1982: also to 
Threaded Interpretive Languages by Ronald Loeliger, 
McGraw-Hill/Byte books. For further reading on the 
Novix processor, see “‘Fast processor chip takes its intruc- 
tions directly from Forth,” Electronic Design, March 21, 
1985, or Programmer's Introduction to the Novix 
NC4000P Microprocessor available from Novix, 10590 
N. Tantau Ave. , Cupertino, CA 95014. For a discussion 
of Forth methodology, see Thinking Forth by Leo Brodie 
(Prentice-Hall, 1984). 
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that is both flexible and extensi- 

ble. It also generates threaded 
code that is extremely compact and 
executes rapidly. Forth also allows the 
programmer to stay within a higher- 
level programming environment, 
while at the same time making use of 
all of the low-level capabilities of the 
computer. These are ideal character- 
istics for a language to be used in the 
development of programs for ma- 
chines with their code in PROM. 

We had been developing code for 
PROM-based applications for several 
years. Primarily we used assemblers. 
After we became acquainted with 
FIG-Forth, we realized that it had the 
potential to be an excellent program- 
ming environment for the develop- 
ment of code for PROM applications. 
There were, however, two serious 
drawbacks. Firstly, there are large 


F orth is a programming language 


essary for the execution of the appli- 
cation program. It also directs any 
code that must be resident in RAM to 
the RAM area of the target machine. 


The General Design of the 

CICFIG Recompiler 

The program described in this article 
is a recompiler of the type specified 
above. It allows programs to be devel- 
oped in Forth on a host machine and 
recompiled to produce the target ap- 
plication code. It was developed by 
the Central Illinois Chapter of the 
Forth Interest Group (CICFIG) and 
works in conjunction with the native 
host Forth compiler. 

To produce the machine execut- 
able target code, source code for the 
application program is compiled by 
the standard Forth compiler within 
the host system. The recompiler (it- 
self already compiled into the host 





By recompiling Forth programs, you can develop 
tight, PROMable code that executes at the top 
speed the target microprocessor will allow. 





sections of the compiled threaded 
Forth code that are not needed for 
the functioning of the PROM-based 
application, but are difficult to ex- 
clude from the code (such as the 
Forth compiler itself). Secondly, sec- 
tions of the code must be in RAM 
(such as self-modifying code, vari- 
ables and pseudo-registers). 

What was needed to rectify these 
problems was a post-compiler. A 
post-compiler, or recompiler, selects 
from the compiled threaded Forth 
code just those segments that are nec- 





Hf. Robinson et al., University of IIli- 
nois, 1406 W. Green St., Urbana, IL 
61801 


Forth system) selects parts of the 
host system along with the compiled 
application code to be included in the 
target code. The recompiler relocates 
all the addresses within this code to 
conform to the memory map of the 
target machine, supplied by the ap- 
plication programmer. The resulting 
minimum length code can be execut- 
ed from PROM, and potentially can 
perform tasks at the maximum speed 
of the microprocessor. The code also 
conforms to the memory map of the 
target machine, and can stand alone 
(i.e. does not necessarily require an 
operating system or monitor). 

One of Forth’s greatest advantages 
is that its interpreter can execute new- 
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ly compiled code. This property great- 
ly simplifies debugging: compiled 
parts of the program can be tested and 
debugged individually with the inter- 
preter. To extend this advantage to 
the process of debugging the target 
application, we have written the re- 
compiler so that the target machine 
code can optionally include the inter- 
preter. When the program is fully op- 
erational, the minimum code can be 
generated by excluding the interpreter 
| (and the verb headers required for the 
interpreter to operate). In addition, 
once the interpreter has been exclud- 
ed, the user has access only to those 
parts of the program allowed by the 
application programmer; the fact that 
the program is compiled Forth code 
should be completely transparent to 
the user. 









































Compiled Forth Code 

The recompiler has as input the ap- 
plication program already compiled 
by the host Forth system. To under- 
stand what the recompiler must do, it 
is necessary to understand the struc- 
ture of compiled FIG-Forth-model 
code. The model includes three parts: 
the start-up code, an inner interpret- 
er, and the dictionary. The start-up 
code and the inner interpreter are 
contiguous in low memory in the host 
Forth system and thus can be treated 
as one block that must be included in 
the target machine code. 

The start-up code initializes the 
registers required for the operation of 
the Forth inner interpreter and then 
jumps to the inner interpreter. The 
inner interpreter uses these registers 
to arrange the sequential execution of 
verbs from the dictionary. 

The dictionary is a set of verbs in 
one linked list. Each verb defines a 
sequence of operations to be executed 
by the machine. Each verb has three 
parts: a header, a code field, and a 
parameter field. The header specifies 


be identified within the dictionary), a 
link address (so the dictionary forms 
one linked list of verbs), and certain 


compiler of the host Forth system. 
The code field contains the address 

of the machine executable code to 

which the inner interpreter will cause 
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the name of the verb (so the verb can | 


special bits that are signals to the > 


How to go 


om 
UNIX to DOS 


without. 


compromising 


standards. 

It’s easy. Just get an industry standard file access 
method that works on both. 

C-ISAM™ from RDS. 7 

Its been the UNIX” standard for years (used in 
more UNIX languages and programs than any other 
access method), and it’s fast becoming the standard 
for DOS. Why? 

Because of the way it works. Its B+ Tree index- 
ing structure offers unlimited indexes. There's also 
automatic or manual record locking and optional 
transaction audit trails. Plus index compression to 
save disk space and cut access times. 

How can we be so sure C-ISAM works so well? 

We use it ourselves. It’s a part of INFORMIX; 
INFORMILX-SQL and File-it!™ our best selling data- 
base management programs. 

For an information packet, call (415) 424-1300. 
Or write RDS, 2471 East Bayshore Road, Palo Alto, 
CA 94303. 

You'll see why anything less than C-ISAM is just 
a compromise. 


Co 


a : 


RELATIONAL DATABASE SYSTEMS, INC. 


© 1985, Relational Database Systems, Inc. UNIX is a trademark of AT&T Bell Laboratories. INFORMIX is 
a registered trademark and RDS, C-ISAM and File-It! are trademarks of Relational Database Systems, Inc. 
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We will do whatever 
it takes to make 
DSD86 the best 

available 

for the IBM PC. 


For starters, we have by far the best 
design, a superior base to build from. 
While the competition adds new 
“modes” for every feature, we have a 
pure, consistent and expandable 
design. While the competition forces 
you to accept their particular philosophy, 
we offer maximized flexability. If you 
already have a debugger or are looking 
for your first, look no further because 
you can't do any better. We invite you to 
compare our debugger, DSD86, with 

any other on the market. 
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advanced debugging technology which 
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with outdated debugging tools 
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the processor to jump when that verb 
is executed at run-time. The parame- 
ter field contains the information 
that is necessary for the function of 
the verb to be accomplished. This 
may be data, as in the case of vari- 
ables (and arrays and constants), or a 
list of addresses of other verbs that 
are to be performed sequentially (e.g. 
a colon definition). Alternatively, the 
parameter field may contain machine 
executable code that performs the 
function of the verb directly. In this 
case, the code field contains the ad- 
dress of the parameter field. 

Since Forth code consists largely of 
lists of addresses, we have devised a 
novel algorithm for identifying all ad- 
dresses in the host Forth system that 
may need to be redirected for inclu- 
sion in the target machine code. The 
procedure calls for two complete 
copies of the host Forth system, in- 
cluding the compiled application pro- 
gram. These two Forth systems are 
identical except that one Forth sys- 
tem has its origin exactly 201 Hex lo- 
cations higher in memory than the 
other (i.e. one has its origin at 100H 
and the other at 301H). When equiv- 
alent locations in both images are 
compared, all numbers (pairs of 
bytes) differing by 201H must be ad- 
dresses. This algorithm identifies all 
absolute addresses, whether they are 
embedded in machine executable 
code, or used as data (such as the list 
of code field addresses in the parame- 
ter field of a colon definition). 






























Forth Systems for Target 
Recompilation 

The recompiler described here is a 
program written entirely in high level 
Forth (MVP-Forth). The recompiler 
is itself compiled into an existing 
Forth system. The application pro- 
gram is also compiled into the same 
host Forth system. The recompiler 
examines the compiled application 
code and determines all code seg- 
ments necessary for the proper func- 
tioning of the application program in 
the target machine. A file is generat- 
ed that contains a copy of those nec- 
essary code segments. All addresses 
in the code segments in that file have 
been corrected to reflect the squeez- 
ing and the relocation of the host 
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Forth system to generate the target 
code image. This file then contains 
the code for the application program, 
which can be loaded into the target 
machine and executed. 

The code generated by the recom- 
piler is intended to be executed on a 
target machine with a microprocessor 
that is code-compatible with the host 
microprocessor; thus, the recompiler 
does not provide the function of a 
cross-compiler. At present, the recom- 
piler can only generate code to be exe- 
cuted on either an 8080/Z80 compati- 
ble or an 8086/88 microprocessor 
based target machine. Development 
machines for these two families of mi- 
croprocessors are common and can be 
quite modest (for instance, only one 
floppy disk drive is required). 

We have considered adapting 
other Forths to allow the use of other 
microprocessors (such as the 6502). 
Time limitations, however, have pre- 
cluded this. In addition, not all Forth 
systems are easily adapted for recom- 
pilation of this kind. The code to be 
included by the recompiler in the tar- 
get machine code must comply with 
the following three rules. 


Rule #1: All non-addresses in the two 
compiled Forth images discussed 
above must be equal. Thus, data stor- 
age areas, such as arrays, must be ini- 
tialized. This rule is only relaxed in 
the case of variables, due to the possi- 
ble use of certain system variables in 
both the host Forth system and in the 
target machine code (such as PREV, 
USE and SEC). 


Rule #2: All inter-verb relative ad- 
dressing mode jumps are forbidden 
(intra-verb relative jumps are al- 
lowed). This rule is necessary be- 
cause the algorithm for detecting ad- 
dresses does not detect relative jump 
addresses. The versions of the target 
compiler available from CICFIG (see 
the section on Availability, page 68) 
have all the inter-verb relative jumps 
in their kernels removed. 


Rule #3: Both the host and the appli- 
cation compiled code must not con- 
tain machine code jumps and calls 
from one code level verb to another 
code level verb. This practice, com- 
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mon in FIG-Forth model systems, can 
be eliminated by recoding certain 
parts of the kernel. 


MVP-Forth implemented on CP/ 
M-80 and MSDOS machines seemed 
to conform most nearly to all our re- 
quirements. In order to make it com- 
ply with the above stated rules, we 
changed the kernel of the MSDOS 
version of MVP-Forth to replace all 
relative jumps to the inner interpreter 
with absolute jumps. The verbs 
OBRANCH, </LOOP> _ and 


<LOOP> were recoded to remove 
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jumps to BRANCH. A relative jump 
in <+LOOP>: to: —LOOP> was 
changed to an absolute jump. Both 
<VOCABULARY79> and <VO- 
CABULARYFIG> were changed to 
contain an absolute jump to DO- 
DOES. DOES> was changed to put 
in an absolute jump to DODOES. 
The kernel of the CP/M-80 version 
of MVP-Forth was changed to com- 
plete the following verbs without in- 
ter-verb jumps: —, OBRANCH, <, 
<A LOOP >, <?TERMINAL>&>, 
<CR>, <KEY>, <LOOP>, SEC- 
READ, and U*. Two instructions 





e We have over 300 
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were added to the beginning of the 
Start-up code that read and load an 
initial value into the cell that is to 
function as the pseudo-register for 
the return-stack pointer. This was 
necessary to allow this cell to be ini- 
tialized in RAM when the start-up 
code segment is in PROM. 

In both versions, the verb 
<+LOOP> has an inter-verb jump 
to BRANCH. This case is handled as 
an exception by the recompiler. We 
intended that the compiler of Forth 
should not be included in the resul- 
tant target machine code. Attempts 


to use the compiler in the target ma- 
chine will have unpredictable results. 


User Interface 

Generation of the target machine 
code with this recompiler is a two- 
step process. The two steps are per- 
formed by the two host Forth systems 
TARGI and TARG2. These two 


Forth systems have the recompiler al- 
ready compiled into them and are 
identical except that they have their 
origins 201 H locations apart. 

The application programmer speci- 
fies the memory map of the target ma- 


FoxBASE. 
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chine by loading the constants indicat- 
ed in Figure 1 (page 57). These 
constants indicate where the origin of 
the target machine code is and to what 
value pointers to any desired RAM ar- 
eas of the target machine are initial- 
ized. For simplicity, this memory map 
conforms to the memory map of 
MVP-Forth. The application pro- 
grammer may rearrange this map to 
suit the nature of the particular prob- 
lem. 

The application programmer must 
specify the verb in the host dictionary 
that is to serve as the cold start verb 
of the target machine code. This is 
done by loading the constant 
TCOLDCFA with the code field ad- 
dress (cfa) of the target machine cold 
start verb. This verb should perform 
any initialization of the Forth system 
that may be required by the applica- 
tion program (for example, the “user 
area” in RAM may need to be initial- 
ized). The examples given in the fol- 
lowing sections explain other initiali- 
zations that may be required, 
depending upon the nature of the ap- 
plication program. The cold start 
verb must invoke the application pro- 
gram. In this way the recompiler can 
detect and include in the target code 
all verbs necessary for the operation 
of the cold start verb and the applica- 
tion program. 

Upon start-up of the target ma- 
chine code, the start-up routine will 
first be performed. This will start the 
inner interpreter, which executes the 
cold start verb and then the applica- 
tion program. 

The procedure for the generation 
of target code is outlined on page 76. 
The recompiler is initiated with a 
zero on the parameter stack. This sig- 
nals to the recompiler that headers 
should be removed from all verbs to 
be included in the target machine 
code. Alternatively, if the parameter 
field address (pfa) of the root verb of 
the application is on top of the stack, 
then headers will be included in the 
target machine code. This allows 
verbs in the target machine code to be 
“found” (by -FIND). In this case the 
cold start verb usually invokes an in- 
terpreter such as the verb QUIT (see 


example #3). 


In example #1 (see screens 
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200-201, page 76) the recompiler is 
used to generate headerless code with 
the Forth outer interpreter excluded 
for a disk-based task. This program 
accepts HEX numbers from the key- 
board and sends them to the MSDOS 
device PRN (usually the printer). 
This is useful for setting up dot-ma- 
trix printers in various modes. 

Screen #200 loads a | into the con- 
stant MAPFILE to signal the genera- 
tion of a DOS file, <codefile>.MAP, 
which will contain (in ASCII) the ad- 
dresses and names of all verbs in the 
target machine code. This screen also 
loads the constants that define the 
memory map of the target machine 
code (see Figure 1). Loading these 
constants is required prior to the ini- 
tiation of the recompiler. 

Screen #201 contains the applica- 
tion program for example #1. The 
verb TINPUT is for numerical input 
from the keyboard. This avoids the 
Forth verb ABORT” that threads to 
the outer interpreter (which we are 
trying to exclude). LP sends a byte to 
the PRN device and APP is the router 
and root verb of the application pro- 
gram. Screen #201 also has the verb 
TCOLD which performs the initializa- 
tion required to load the “user area” 
of RAM. The constant TCOLDCFA 
has been loaded with the code field 
address of the verb to be executed 
upon start-up. The code generated by 
this program is less than 2K. 

Example #2 (screens 202-203, see 
page 76) demonstrates the minimum 
code length that can be generated by 
the MSDOS MVP-Forth version of the 
recompiler. Screen #202 loads the 
memory map for the target machine. 
Screen #203 has the verb TCOLD, 
which simply performs a return to the 
operating system. The code generated 
is 412 bytes, and includes the Forth 
start-up code, the inner interpreter, a 
group of mandatory verbs (which in- 
cludes the run-time routine DOCOL, 
for instance), and INTCALL. Eleven 
verbs are included in the target ma- 
chine code in this example. 

Example #3 (screens 204—207, see 
page 76) demonstrates that the Forth 
interpreter can be included in the tar- 
get machine code. The verbs in the 
target code must have headers so that 
they can be found by the outer inter- 
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preter. Care must be taken to ensure 
that the Forth virtual memory block 
disk verbs are not included. Screens 
# 205-206 have the Forth outer inter- 
preter tailored to exclude references 
to the disk block verbs. Screen #207 
has a test application program (APP) 
and the cold start verb TCOLD. The 
vocabulary link in Forth must also be 
initialized. The recompiler is started 
by typing > APP TARGET, rather 
than 0 TARGET, as in a headerless 
case. The cfa of the root verb of the 
application program is on the param- 
eter stack; knowledge of it is neces- 
sary to the recompiler since the verb 
TCOLD pointed to by the constant 
TCOLDCFA does not thread to APP. 
Example #4 (screens 208-212, 
page 78) shows that the verbs of the 
Forth virtual memory disk block han- 
dlers can be included without the out- 
er interpreter (disconnecting certain 
groups of routines within the host 
Forth system can be a bit tricky). 
This program reads in a number of 
Forth blocks (in ASCII) and writes 
their contents to a DOS file (in AS- 
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CII). This is done so that the file can 
be manipulated by your favorite word 
processor (such as WordStar; you 
must set the page length to 27 to ma- 
nipulate 16 line Forth screens in doc- 
ument mode from the DOS file gener- 
ated from this program). 

In screen #208, the target memory 
map is loaded to indicate that 2 disk 
block buffers are to be allotted. 
Screens #209-210 set up the DOS 
file and transfer the information 
from the blocks to the DOS file. Trail- 
ing spaces are calculated by CHARS 
and removed by BLOCK>FOUT. 
Screen #211 has the verb TCOLD, 
which initializes the program. Sever- 
al constants are loaded in TCOLD. It 
is important to be sure that the verbs 
referenced indirectly in TCOLD as li- 
terals (FIRST, LIMIT, #BUFF, and 
C/L) are included in the target ma- 
chine code by direct references else- 
where in the program. 

The Forth verb <R/W> has 
ABORT” in its definition. Conse- 
quently, ABORT, QUIT, etc. would 
all be included, although they would 
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be quite useless, since the code gener- 
ated is headerless. Thus, <R/W> 
should be revectored to a new verb 
which does not have this problem. 
Screen #212 has the verb <TR/ 
W >, which is identical to the normal 
<R/W> except that the ABORT” 
construction has been removed. 
<TR/W> is re-vectored through 
"R/W so that <TR/W> will be in- 
cluded by the recompiler rather than 
<R/W> (and the entire Forth out- 
er interpreter). 

The program in example #5 
(screens 212-217, page 78) provides 
the inverse function of the program in 
example #4. In the DOS-ASCII files 
the <cr> <If> pair is present at the 
end of each line of text, and unneces- 
sary spaces are not present. These pro- 
grams allow interchange between 
Forth blocks and DOS files. Example 
#5 removes the <cr> <If> pairs 
and inserts spaces at the end of each 
line to fill-out each line of the Forth 
block. In screen #215, the verb 
TVARIABLE demonstrates how the 
RAM variable storage area can be 
used. 

It may be necessary to generate 
code for a low-memory jump table to 
handle a start-up jump and interrupt 
jumps. In simple cases, this can be 
handled by hand patching. In more 
complex cases the recompiler can be 
instructed to generate a file (by set- 
ting the constant MAPFILE, | > MAP- 
FILE !) containing the memory map 
(in ASCII) of all verbs in the target 
machine code. The code for the low- 
memory jump table can be generated 
by a program that queries the memo- 
ry map file for addresses. 


Error Messages and Warnings 

During the process of target compila- 
tion, if the recompiler finds numbers 
that are not equivalent in the two 
Forth images and are not identifiable 
as addresses (or the two bytes of the 
data area of a variable), then an error 
is indicated (“Images not matched at 
<address>’’). A brief dump is then 
produced, the dictionary is ‘‘un- 
smudged”’, and control is returned to 
the interpreter. This error is general- 
ly the result of an uninitialized data 
area within a verb. The application 
programmer must then inspect the 
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The C for Microcomputers 


© PC-DOS, MS-DOS, CP/M-86, Macintosh, Amiga, Apple II, CP/M-80, Radio Shack, 
Commodore, XENIX, ROM, and Cross Development systems 





Manx Aztec C86 
“A compiler that has many strengths ... quite valuable 
for serious work” 

Computer Language review, February 1985 


Great Code: Manx Aztec C86 generates fast executing 
compact code. The benchmark results below are from a 
study conducted by Manx. The Dhrystone benchmark 
(CACM 10/84 27:10 pl1018) measures performance for a 
systems software instruction mix. The results are with- 
out register variables. With register variables, Manx, 
Microsoft, and Mark Williams run proportionately faster, 
Lattice and Computer Innovations show no improve- 
ment. 


Execution Code Compile/ 
Time Size __ Link Time 


Dhrystone Benchmark 
Manx Aztec C86 3.3 34 secs 5,760 


34 secs 7,146 


93 secs 
119 secs 
172 secs 
113 secs 
117 secs 


Microsoft C 3.0 
Optimized C86 2.20) 53 secs 11,009 


Mark Williams 2.0 
Lattice 2.14 


12,980 
20,404 


56 secs 
89 secs 





Great Features: Manx Aztec C86 is bundled with a powerful 
array of well documented productivity tools, library routines 
and features. 


Optimized C compiler Symbolic Debugger 

AS86 Macro Assembler LN&86 Overlay Linker 
80186/80286 Support Librarian 

8087/80287 Sensing Lib Profiler 

Extensive UNIX Library DOS, Screen, & Graphics Lib 
Large Memory Model Intel Object Option 

Z (vi) Source Editor -c CP/M-86 Library -c 


ROM Support Package-c INTEL HEX Utility -c 
Library Source Code -c Mixed memory models -c 
MAKE, DIFF, and GREP -c Source Debugger -c 

One year of updates -c CP/M-86 Library -c 


Manx offers two commercial development systems, 
Aztec C86-c and Aztec C86-d. Items marked -c are 
special features of the Aztec C86-c system. 


Aztec C86-c Commercial System $499 
Aztec C86-d Developer’s System $299 
Aztec C86-p Personal System $199 
Aztec C86-a Apprentice System S49 


All systems are upgradable by paying the difference 
in price plus $10. 


Third Party Software: There are a number of high qual- 
ity support packages for Manx Aztec C86 for screen 
management, graphics, database management, and soft- 
ware development. 


C-tree $395 Greenleaf $185 
PHACT $250 PC-lint $98 

HALO $250 Amber Windows $59 
PRE-C $395 Windows for C $195 


WindScreen $149 FirsTime $295 
SunScreen $99 C Util Lib $185 
PANEL $295 Plink-86 $395 


BSI Pa a oe ee TM of Bell Laboratories, Lattice TM Lattice Inc., C-tree TM Fairco 


Inc., C-terp, 
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Manx Aztec C68k 


“Library handling is very flexible ... documentation is 
excellent ... the shell a pleasure to work in ... blows 
away the competition for pure conipile speed... an ex- 
cellent effort.” 

Computer Language review, April 1985 


Aztec C68k is the most widely used commercial C com- 
piler for the Macintosh. Its quality, performance, and 
completeness place Manx Aztec C68k in a position be- 
yond comparison. It is available in several upgradable 
versions. 


Optimized C Creates Clickable Applications 
Macro Assembler Mouse Enhanced SHELL 
Overlay Linker Easy Access to Mac Toolbox 
Resource Compiler | UNIX Library Functions 
Debuggers Terminal Emulator (Source) 
Librarian Clear Detailed Documentation 
Source Editor C-Stuff Library 

MacRam Disk -c UniTools (vi,make,diff,grep) -c 


Library Source -c One Year of Updates -c 


Items marked -c are available only in the Manx Aztec 
C86-c system. Other features are in both the Aztec C86-d 
and Aztec C86-c systems. 


Aztec C68k-c Commercial System $499 
Aztec C68d-d Developer’s System $299 


Aztec C68k-p Personal System $199 
C-tree database (source) $399 
AMIGA, CP/M-68k, 68k UNIX call 
Manx Aztec C65 


“The AZTEC C system is one of the finest software 
packages I have seen” 
NIBBLE review, July 1984 


A vast amount of business, consumer, and educational 
software is implemented in Manx Aztec C65. The quality 
and comprehensiveness of this system is competitive 
with 16 bit C systems. The system includes a full optim- 
ized C compiler, 6502 assembler, linkage editor, UNIX 
library, screen and graphics libraries, shell, and much 
more. The Apple II version runs under DOS 3.3, and 
ProDOS, Cross versions are available. 

The Aztec C65-c/128 Commodore system runs under 
the C128 CP/M environment and generates programs for 
the C64, C128, and CP/M environments. Call for prices 
and availability of Apprentice, Personal and Developer 
versions for the Commodore 64 and 128 machines. 


Aztec C65-c ProDOS & DOS 3.3 $399 


Aztec C65-d Apple DOS 3.3 $199 
Aztec C65-p Apple Personal system $99 
Aztec C65-a for learning C S49 


Aztec C65-c/128 C64, C128, CPIM $399 





Distribution of Manx Aztec C 


In the USA, Manx Software Systems is the sole and ex- 
clusive distributor of Aztec C. Any telephone or mail 
order sales other than through Manx are unauthorized. 


Cross developed programs are edited, compiled, assem- 
bled, and linked on one machine (the HOST) and trans- 
ferred to another machine (the TARGET) for execution. 
This method is useful where the target machine is slower 
or more limited than the HOST, Manx cross compilers 
are used heavily to develop software for business, 
consumer, scientific, industrial, research, and education- 
al applications. 


HOSTS: VAX UNIX ($3000), PDP-11 UNIX ($2000), MS- 
DOS ($750), CP/M ($750), MACINTOSH ($750), 
CP/M-68k ($750), XENIX ($750). 


TARGETS: MS-DOS, CP/M-86, Macintosh, CP/M-68k, 
CP/M-80, TRS-80 3 & 4, Apple II, Commodore C64, 
8086/80x86 ROM, 68xxx ROM, 8080/8085/Z80 ROM, 
65xx ROM. 

The first TARGET is included in the price of the HOST 
system. Additional TARGETS are $300 to $500 (non 
VAX) or $1000 (VAX). 

Call Manx for information on cross development to the 
68000, 65816, Amiga, C128, CP/M-68K, VRTX, and 
others. 


Manx Aztec Ci 


“I've had a lot of experience with different C compilers, 
but the Aztec C80 Compiler and Professional Develop- 
ment System is the best I've seen.” 

80-Micro, December, 1984, John B. Harrell Ill 


Aztec C II-c (CP/M & ROM) $349 
Aztec C II-d (CP/M) $199 
C-tree database (source) $399 
Aztec C80-c (TRS-80 3 & 4) $299 
Aztec C80-d (TRS-80 3 & 4) $199 
How To Become an Aztec C User 


To become an Aztec C user call 1-800-221-0440 or call 
1-800-832-9273 (800-TEC WARE). In NJ or outside the 
USA call 201-530-7997. Orders can also be telexed to 
4995812. 

Payment can be by check, COD, American Express, 
VISA, Master Card, or Net 30 to qualified customers. 

Orders can also be mailed to Manx Software Systems, 
Box 55, Shrewsbury, NJ 07701. 


How To Get More Information 

To get more information on Manx Aztec C and related 
products, call 1-800-221-0440, or 201-530-7997, or write 
to Manx Software Systems. 


30 Day Guarantee 

Any Manx Aztec C development system can be return- 
ed within 30 days.for a refund if it fails to meet your 
needs. The only restrictions are that the original pur- 
chase must be directly from Manx, shipped within the 
USA, and the package must be in resalable condition. 
Returned items must be received by Manx within 30— 
days. A small restocking fee may be required. 


Discounts 

There are special discounts available to professors, 
students, and consultants. A discount is also available on 
a “trade in” basis for users of competing systems. Call for 
information. : . 
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RUN/C: 
The C Interpreter 
Only *149.95] 


For both 
the beginner and the C professional, 
RUN/C: The C Interpreter 
makes program development easier and 
faster. With RUN /C all those C programs you've 
been writing — or have been wanting to write — 
can be up and running in a fraction of the time. 


The beauty of RUN /C is that it provides 
a BASIC-like user interface for C; it allows the user 
to edit and debug code immediately and interactively. 


RUN /C is the first program to make Ca user-friendly language. 


Although C is structured, compact and FAST, the writing and testing 
of C programs is often a tedious process. F.UN /C helps bring up to 
speed both your programs and your C programming skills. C 
programming has never been so fast and enjoyable! 


When running under RUN /C, your C program performs exactly as it 
would if it were compiled (although slower since RUN /Cisa true 
interpreter). If your program does have an error, RUN/C finds it, 
gives you a comprehensive error message and allows you to correct the 
error on the spot. Once you are completely satisfied with your C 
program it can be SAVEd, then compiled and linked using your favorite 
C compiler. 


FRRUN/C offers easy and familiar commands such as LOAD, LIST, 
SAVE, RUN, etc. A powerful line editor is built right in. RUN /C’s 
SHELL command will also allow you to use your own editor for 
extensive full-screen editing, and then return your newly edited 
program to RUN /C — all within a single, unified environment. 


RUN /C offers: 

¢ A robust implementation of 
Standard Kernighan and Ritchie C. 

e Full floating point, 8087 math 
chip support, structures, 
unions, initializers, casts and 
more than 100 built-in standard 
C library functions, 

e An easy-to-read 475-page 
manual filled with useful 
examples to help you master 
the C language. 

e TRON, TRACE and DUMP 
diagnostics PLUS a program 
profiler. 


e Printer and asynchronous 
communications support. 
e A full set of buffered and 
unbuffered file 1/O functions. 
e Nearly 100 sample C programs 
on disk illustrating the most 
important C functions and 
concepts. 
e System Requirements: 
IBM® PC or compatible with 
PC-DOS 2.0 or MS™-DOS 2.0 


CALL for information on non-IBM 
compatible MS-DOS systems. 


For immediate delivery or more information: 


Lifeboat™ 


Or 11 
1-800-847-7078 
In NY, 1-212-860-0300 


Lifeboat™ Associates 1651 Third Ave.New York, NY 10128 


RUN/C is a trademark of Age of Reason Co. 
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dump to determine the offending 
verb and recode or initialize the verb. 
After repairing the problem, the tar- 
get compilation process must be re- 
initiated from the beginning. 

A temporary DOS file (TAR- 
GET.TMP) is generated on the de- 
fault drive by TARGI to hold an im- 
age of itself. TARG2 expects to find 
this file on the default drive. If this 
file is missing, TARG2 requests that 
it be replaced (“TARGET.TMP not 
found on default drive.’’). 

A warning (““<address> <ID.> 
—Code verb assumed.”’) is issued by 
both TARGI and TARG2 if there is a 
verb with an address in its code field 
that the recompiler cannot recognize. 
The offending verb will be included 
in the target machine code and the 
recompiler will continue. 

The most common problem we 
have encountered while using this 
target compiler has been caused by a 
verb missing from the application 
code that seemingly should have been 
included. This situation arises be- 
cause the missing verb is referenced 
only indirectly (as a literal for in- 
stance). That is, the missing verb’s 
pfa is compiled into a verb as a literal 
by the verb ’ at compile-time. If all 
references to a verb are of this type 
then the recompiler will not include 
this verb in the application code. The 
recompiler was designed this way be- 
cause there is no way to anticipate 
the intention of the application pro- 
grammer for the literals compiled 
into the definition of a verb. 

If the application program crashes, 
the programmer should first inspect 
the source code to see if there are any 
missing verbs. This can be done by 
checking all verbs referenced by liter- 
als (from ’) against the verbs includ- 
ed in the application code listed in the 
DOS application code map file. If a 
verb is missing, then the application 
code must be changed to force inclu- 
sion of the missing verb by explicitly 
referencing that verb. 

It is our intention that verbs not re- 
quired for the run-time activity of the 
application program not be included 
in the target machine code. We have 
found that the outer interpreter verbs 
or the disk block virtual memory verbs 
are sometimes included in the code 
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when they have no intended use in the 
application. The most common source 
of this problem is run-time error han- 
dling of Forth through the verb 
<ABORT’’>. This verb leads the re- 
compiler far into the outer interpreter 
and BLOCK verbs of the host Forth 
system. To avoid including unwanted 
verbs, the application programmer 
needs to identify an unwanted verb 
(e.g. QUIT or R/W etc.). A program 
has been devised (to be described else- 
where) to determine the threads that 
lead to the unwanted verbs. The appli- 
cation programmer can redefine the 
particular verb that leads to the un- 
wanted verbs. Example #3 demon- 
strates this situation. In this example 
some of the verbs of the interpreter 
have been redefined to exclude any 
reference to the disk block virtual 
memory verbs. This is quite a general 
procedure and demonstrates the great 
flexibility of Forth in allowing proce- 
dures that are central to the function- 
ing of the host system to be redefined 


for inclusion in the target code. 


Inside the Target Compiler 

The verb TARGET sequentially in- 
vokes the major tasks required by the 
recompilation process. The first of 
these tasks, APPTAG, tags (sets bit 5 
of the header, the SMUDGE bit) all 
verbs in the host that are to be includ- 
ed in the application code. 

The constant HEADERS, if it is 
non-zero (that is, the cfa of the appli- 
cation root verb), signals that all 
verbs necessary for the functioning of 
both the application root verb and the 
cold start verb (referenced by the 
constant TCOLDCFA) are to be 
tagged. In this case, headers will be 
included in the target code. The cold 
start routine must lead to an inter- 
preter (such as QUIT). 

If the constant HEADERS is zero, 
then only those verbs needed for the 
functioning of the cold start verb are 
tagged and the cold start verb must 
thread to the application program. In 


this case, headers will not be included 
in the target code. If the interpreter 
or other unwanted verbs are uninten- 
tionally tagged, the source code must 
be modified to exclude references to 
unwanted verbs. 

To search the tree structure defined 
by the application program, the recur- 
sive verb TREETAG is initiated with 
the cfa of the cold start of the applica- 
tion on the stack. TREETAG deter- 
mines the type of the verb being ex- 
amined at that node in the tree. 
Variables, constants, and machine- 
code verbs are simply tagged and 
TREETAG terminates at that level of 
recursion. If TREETAG is examining 
a colon verb, then each entry in the 
parameter field is the cfa of another 
verb that must be searched. TREE- 
TAG puts a cfa on the stack and then 
calls itself. This process is repeated for 
all entries in the parameter field. The 
verb PFSKIPS handles entries in the 
parameter field that are exceptions 
(entries that are to be skipped, such as 





COHERENT 





At last — 


a UNIX compatible O/S with elaborate 


hard disk recovery routines! 


»> COHERENT is the best UNIX 
compatible O/S for networking, 
process control and multiuser 
applications with highly efficient 
code generation, configurable 
kernel and flexible disk 
partitioning. 

» Support available for high 
resolution graphics, image capture, 
mouse and other hardware. 

> A complete COHERENT 


development environment that available. 
includes a screen editor and source > Professional technical support 
code control system. provided. 


To discuss your system requirements call: (604) 294-6201 


2457 Beta Ave., Burnaby, B.C., Canada V5C 5N1 


» Total object code compatibility 
between the IBM AT, XT, and PC. 

» Available with UNIX System V 
compatible support for 
interprocess communication 
enhancements and high speed 
multiline communication cards 
(up to 38.4 Kbaud). 

»> Can be easily programmed into a 
turnkey environment. Flexible 
turnkey and runtime licensing 





‘e Full K&R C Compiler 


e Full Screen Editor 
e@ Execution Profiler 
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FULL DEVELOPMENT PACKAGE 
e Assembler, Linker & Librarian 
e@ Complete STDIO Library (>120 Func) 
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BOTH 8087 & S/W FLOATING POINT 


OUTSTANDING PERFORMANCE 
e@ First and Second in AUG '83 BYTE 
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e Examine & change variables by name 
using C expressions 

e@ Flip between debug and display screen 

e Display C source during execution 

@ Set multiple breakpoints by function or line 
number 








pos unk supront «= $OH 
e Converts DeSmet.0 to DOS.OBJ Format 
e LINKs with DOS ASM 

e Uses Lattice® naming conventions 


























residents add sales tax. 


















COHERENT is a trademark of Mark Williams Co. UNIX is a trademark of Bell Laboratories. IBM AT, XT and 


PC are trademarks of International Business Machines Corp. 
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CORPORATION 





P.O. Box C, Sunnyvale, CA 94087 


(408) 720-9696 


Street Address: 505 W. Olive, #767 (94086) Call for hrs. 


All orders shipped UPS surface on IBM format disks. Shipping included in price. California 
Canada shipping add $5, elsewhere add $15. Checks must be on U.S. 


Bank and in U.S. Dollars. Call 9am—1pm to CHARGE by VISA/MC/AMEX. 


Foreign Distributors: AFRICA, HI-TECH SVCS, Gaborone 4540 or Telex 2205BD LANGER @ 
ENGLAND: MLH Tech, 0606-891146 @ JAPAN: JSE 03-486-7151 © 
SWEDEN: ESCORT DATA 08-87 41 48 or THESEUS KONSULT 08-23 61 60 
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@ Select ERASE attribute (All sh 
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| @ The IDEA.. | Amenu-driven guide to WINDOW 

6 Over Statement, = WIP... WINDOW INFORMATIO PROCESSING _ 
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m@ BARCHART... Columnar Report Form with Bar 


@ NOTEPAD... On-line database of Quick Notes 
mmand at dot eee or under . PRG no _=8 ZOOM. . Automatic program generation; 
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| Selection available © 


® PAINT — Graphic art controlled with Nepede cS : 


System Requirements: 


= IBM PC, XT, or AT (and compatibles) with 192K , 
@ DOS version 2.0 


a SCREEN siecs 


= CAPTURE — full or partial screen to window 


'™ SET WINDOW PATH — disk-based, = MONOCHROME or Color display 
__ tree-structured window files 


@ Assembler Language 


a SET SYNC on/off — VIDEO adjustment of snow and glitches = dBASE Il version 2.4 or 2.41 


a 100 dynamically allocated memory window 
_ buffers ee hee 


Price: $165.00 plus $4.00 (shipping) 






To orter Phone (503) 221-1806 or write: 
_ Liberty Bell Publishing 4640 S.W. Macadam, Suite 150 Portland, Oregon 97201 
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branches and character strings). 

Verbs. that...are -"CREATE 
DOES>” defining verbs are tagged 
by having VERBTAG find their name 
field addresses with the verb 
MAXNFA. MAXNFA recursively 
searches the entire host dictionary 
(when initiated properly; see the glos- 
sary, page 69) and returns the maxi- 
mum nfa less than the address of the 
DOES> part of the “CREATE 
DOES>” construction. Further 
searching of the DOES> portion of 
the defining verb is performed by the 
verb CREATE-DOES>. This verb 
functions similarly to TREETAG and 
recursively calls TREETAG by the 
forward-reference-executing verb 
>TTAG. At present, the CREATE 
portion of the CREATE-DOES=> con- 
struction will be included (wasteful- 
ly) in the target code; however, no 
searching or tagging of the verbs ref- 
erenced in this portion is performed. 
The exact form of “CREATE 
DOES>” defining verbs varies with 
different Forth implementations; 
some adjustments to the recompiler 
may be necessary with other FIG- 
Forth model systems. 

APPTAG directs TFIX;CODE and 
TFIXNULL to tag certain verbs that 
are required in the target code; also 
the root verb of the application is 
searched if headers are requested. 

VERBLISTS directs the creation of 
two lists on the parameter stack. The 
first list (proceeding down in memo- 
ry) is a numerically sorted list of all 
name field addresses in the host dic- 
tionary. This list reflects the physical 
order of the verbs in memory rather 
than the order defined by the links 
within headers of the verbs. This 
physical ordering is useful during the 
elimination of unwanted verbs. The 
second verb list contains pairs of 
numbers. There is one pair for each 
tagged verb in the host. The first 
number is the address of the begin- 
ning of the memory segment for that 
tagged verb in the host system. This 
is either a cfa or an nfa, depending on 
whether or not headers are to be in- 
cluded in the target code. The second 
number of each pair is the numerical 
difference between the first number 
of the pair and the address of the 
start of that verb in the target ma- 
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chine code. This information will be 
used to recalculate all of the address- 
es in the target code to reflect the 
squeezing out of the unnecessary 
verbs from the host Forth system. 


space (see Figure 2, page 57) on the 
stack for the nfa list and the target 
offsets list. The size of this space is 
determined by the verb COUNT- 
VERBS which recursively searches all 
vocabulary branches of the host dic- 
tionary, determining the total number 
of verbs in the host and how many of | target, the host code address, paired 
those verbs are tagged (the variables 
VERBS# and TVERBS#). FRAMEIN 








initializes certain pointers to these 
lists and also initializes the beginning 
and ending entries that are used as 
signals for the list searching verbs. 
The verb OFFSETS enters into the 
target offsets list the starting address 
of the verbs to be in the target code. 
A running count of the verb locations 
to be in the target code is calculated. 
This number is used to calculate the 
difference between the host address 
and the target code address of each 
verb. For each verb that will be in the 


The verb FRAMEIN sets aside the 


with the offset (the difference calcu- 
lated above), is entered into the tar- 
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With A Single File!! 
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More powerful than Prokey'= or Superkey'™! 
Stops integration nightmares with its bare bits! 


SuperBatch™ is a powerful utility program that creates batch files 

that drive almost any program (LOTUS 1-2-3™, Wordstar'™, etc.). 

It also continues execution from program to program. Common 

uses include: 

e Integration of individual programs to form a system. 

e Creation of self running demo systems. 

e Inserting repetitive procedures into a SuperBatch™ file for 
simple execution. 


Please send[ ]Info [ |] SuperBatch 


RS apie ea tae 
Pichler s ie sh cel 


Bickle se ee 


Please mail or call 313-645-5280 to place your order. 
$79.95 with a 30 day Money Back Guarantee 
Canadian orders add $10.00 for shipping. 


Merrill Street Software 


____ copies x 79.95 Divigion.of BCC Inc: 
MI res. add 3.20 sales tax per 981 Merrill Street 


Total ___ ~~ —— Birmingham, MI 48011 


Payment [_ |] Visa | } MC [.-] Chk { -] PO| ] Bank Draft [| ] COD 
Wame (inClare vid ee ee 


Cr Card No. Card Exp. 


Prokey'™ is a registered trademark of RoseSoft, Inc. Superkey'™ is a registered trademark of Borland International. 
Lotus 1-2-3'™ is a registered trademark of Lotus Development Corp. Wordstart™ is a registered trademark of Micropro International. 
SuperBatch'™ is a registered trademark of BCC, Inc. SuperBatch'™ requires MS-DOS 2.0 or greater. 
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TIMELY REPORTS, 
“ACCURATE RECORDS, 
RELIABLE INFORMATION...... 





sen 
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_uthisis “BASIC BUSINESS 


Price is nice - and so is a long list of features - but when you 
choose a software package to automate your accounting, don't 
lose sight of the basics of good business record keeping. Basic 
Business, an all-in-one accounting software package, offers an 
excellent price and extensive feature list without sacrificing these 
basic business principles: 


Full Audit Trails - to give you complete confidence in the 
accuracy of your data and provide crucial backup information when 
you need it. And double entry accounting keeps your books in 
balance. 


Complete Integration - provides efficient processing for all 
your business transactions, updating all of your accounting 
records instantaneously. You only enter the transaction once, and 
all supporting modules are updated automatically. 


Flexibility - Basic Business can be adapted to your way of doing 
business, including balance forward or open item accounts 
receivable, departmental or consolidated general ledger, variable 
aging periods and easy entry of manually written checks and 
voids. 


Extensive Reporting - each accounting module provides 
complete reports, including master lists, transactions, journals, 
statements and forms. In addition, all data files are compatible with 
Ashton-Tate's dBase II and dBase Ill, for the ultimate in custom 
reporting capability. 

With some accounting software, even packages costing hundreds 
of dollars more, you must make detailed estimates and complex 
calculations for the maximum number of customers, transactions, 
inventory items, etc., before using the system. Then, when your 
business grows to exceed these original estimates, you must 
repeat this process. 


Not with Basic Business! All data files are automatically initialized 
when you install the system on your computer. Files can grow 
dynamically as your business increases and are usually limited 
only by the amount of disk Storage space available (Max. 65,000 


records per file). No need for cumbersome reformatting once you 
exceed your original estimates. 


* 


Complete accounting $ TD 
software package, only a i 









FORMS ARE NO PROBLEM! Basic Business uses standard 
forms for invoices, statements, checks, purchase orders, etc., 
which may be ordered with your company name, adddress and logo 
imprinted. 


Basic Business is one of a family of accounting software 
packages, and has sold previously for several hundred dollars per 
module. It has been improved, updated and re-packaged to sell at 
a market-busting $89.95 for all seven modules; General Ledger, 
Accounts Receivable, Accounts Payable, Payroll, Inventory 
Control, Sales Order Processing and Purchase Order Processing. 
A Point-of-Purchase module, which controls an electronic cash 
drawer and allows direct entry of transactions from your sales 
counter, is sold separately for $99.95. 


SOURCE CODE AVAILABLE 


Do you have a distinct accounting problem that off-the-shelf 
software won't handle? Special forms or statements? Don't 
write your own accounting system from the ground up - start 
with Basic Business. Call (714) 630-0446 for all the details on 
source code licensing. 


Basic Business can go to work for you today and is available for all 
popular MS-DOS (IBM and compatibles) and CP/M-80 personal 
computers. Compare our price, features and attention to detail. 
There is only one choice . .. it's Basic Business. 


mescuusness .....-... 2-5... $89.95 
Pomt-ol-Purchase module .......... .. $99.95 
Goase 1/Nl Hie formats ........ .. $19.95 
Please add $2.50 for shipping. 


Minimum Hardware Required for MS- 
DOS computers: Color or monochrome 
display, 256K memory, two DS/DD floppy 
disk drives (or 1 floppy disk drive and 
hard disk recommended for Sales and and Purchase Order Processing), printer 


Purchase Order Processing), printer w/132 columns CP/M-80 version 2.0 
w/132 columns, MS-DOS (or PC-DOS) _ later. ee 
version 2.0 or later. 


Minimum Hardware Required for CP/M- 
80 computers: 80 x 24 character display 
terminal, 64K memory, two 360K disk 
drives (hard disk recommended for Sales 
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SERVICES 
File Transfer Service: Advent provides a service beyond the ability of any format 
conversion software! We can transfer files between MS-DOS/PC-DOS, CP/M and 
_ other operating systems in 300 different 3 1/2", 5 1/4" and 8" formats. Includes Apple 


and Mac, Apricot, Data General One, Kaypro 2000, Eagle, Epson QX-10 & PX-8 
(ROM), HP-150, and North Star computers. 


ENGINEERING SOFTWARE 


-_ACNAP: A stand-alone Electronics Circuit Analysis Program for use with passive 
and active circuits consisting of resistors, capacitors, inductors, transistors, op- 
amps, FETs, etc. Features menu driven and very fast processing times with circuits 


saved to disk for later use or editing. 
ACNAP (CP/M & MS-DOS) ... 1... ee eee ee te terete ett e nee $69.95 


DCNAP: Stand-alone DC circuit analysis program for use with passive and active 


circuits containing resistors, voltage sources, independent and dependent current 
sources. Fast, menu- driven program with circuit saved to disk for later use or 
_ editing. 

- DCNAP (CP/M & MS-DOS) ......- cece ee cece eee ete e ees $69.95 


 Plotpro: Scientific graph printing program. Prints on 80 or 132 column printer. 


Create linear, semi-logarithmic, and full logarithmic plots with one or two Y axes in 


_ auto or forced scale. 
_ Plotpro (CP/M & MS-DOS) ...... 2-22 cee ce eee eee reer eee e reese $69.95 


_ §PP: This Signal Processing Program contains an integrated set of routines which 
analyze linear and non-linear systems and circuits and their effects on user 
specified time domain waveforms. Based on a 512 point Fast Fourier Transformand _ 
its inverse. Linear processing is in frequency domain and non-linear processing isin _ 
time domain. : : 
SPP (CP/M & MS-DOS)... eee eee reece eee e ence e ere cerees $69.95 


SOFTWARE UTILITIES 


Autodiff: File difference detector. This program finds insertions, deletions, and 
changes between any two files. Autodiff can mark the file, display, or print the 
differences, and more! 

Pea Fr—r—sr— er—s—t—“ “ERC. $29.95 


CP/M DateStamper: Automatically stamp your files with the date it is created, last 
read, or modified. Works without a Real Time Clock , or with many clocks currently 
on the market. Utilities are included to allow copying, erasing, or renaming files 
based on time and date. A time logging utility is included to record computer usage 
for business/tax purposes. 

DateStamper (CP/M) .......- ee cece cece ete teeter tte e eens $49.95 


Media Master +: Read and Write up to 75 CP/M, MS-DOS & TRSDOS disk formats 
on your IBM or look-alike computer. ZP/EM program is bundled with Media Master 
to allow CP/M programs to run directly on your MS-DOS computer. An $80.00 value. 

SRaig DIARIO i a ee eee ee $59.95 


Pack and Crypt:Two program set Pack compresses and expands files on disk to 
save space. Crypt encodes files to provide security for sensitive data. Both are ideal 
for use with modem transfers. 


Pack and Crypt (CP/M & MS-DOS) ...........0-.ce eee ee scenes $24.95 


Sidekick: One of the most popular programs ever written. Use Sidekick as a 


calculator, notepad, appointment calendar, auto dialer, ASCII conversion table and 


much more. On-line help if you forget any of Sidekick’s many functions. 


ee $54.95 


_ ‘SmartKey Il; New Release! Same great time saver as the original, and allows 
~ compiling of definitions you set up with your word-processor! Makes every software 


program you use easier. Can reduce keystrokes by more than 50% by redefining 
any key on your keyboard to be any combination of characters or commands that 
you desire. 

SisiKey © i ee ete $49.95 


SmartPrint: A powerful add-on to SmartKey, SmartPrint is a vesatile writing tool 
designed to give you full access to your printer's features such as wide, bold, 
condensed, underlined, subscript, superscript, and more. Works great with 
programs like WordStar and others. 


BA i i i ec css $29.95 


Uniform: Your Computer can read and write up to 80 CP/M, MS-DOS / PC-DOS & 
TRSDOS disk formats. Versions available for most popular CP/M and MS-DOS 
computers. Specify your host computer when ordering. 

Uniform (CP/M & MS-DOS) .....-. eee cece cree crete rer erecnes $69.95 


XTREE: Directory maintenance program that graphically displays subdirectories 
and filename paths. Complete control of your directory including delete, rename, 
view, list or show. A must for your IBM or compatible. 

XNTREE (MS-DOS) . 2. 2 cence eer wenn re eee sees $49.95 


Super Zap: Disk patch and dump program. if you have used DU, you will love this 
menu driven marvell 
Super Zap (CPIM)... . . i et ee en eee cet c eee er esses $24.95 


ZP/EM: Run almost any CP/M program on your IBM or clone. Use with Media 
Master or Uniform to allow programs on CP/M disk formats to run directly on your 
IBM or compatible computer. 

ZPEM (MS-DOS) « «oo ve een tee ces crest t ser eee> $39.95 


FX, QX-10, PX-8 - Epson Sexi CP/M - DRI; MS-DOS - MicroSoft, PC-DOS - IBM Corp.; dBASE I & 
dBase Ill - Ashton-Tate; WordStar - MicroPro; UNIX - Bell Laboratories; Apple - Apple Computer Inc; 
Basic Business - Advent Products Inc. 


PROGRAMMING LANGUAGES 
C/80 Ver 3.1: Full featured C compiler and runtime library. One of the fastest on 


the market. Mathpak is included for true 32 bit floating point and signed integers. 
C/80 Ver. 3.1 (CP/M) .........-2 00s Se eee $79.90 


C/NIX: Operating System Enhancement for CP/M. C/NIX gives your system many 
features in the UNIX OS such a hierarchical directory, 1/O redirection, “pipes” & 
"filters" and command files. Uses only 2.3K of TPA and 42K of disk. Requires CP/M 


LISP/80; Experiment with the artificial intelligence language. Based on the 
INTERLISP dialect, LISP/80 offers over 75 built-in functions, including file YO, and 
string operations. Complete with 36 page manual and demo programms. 

i i ce se $39.95 


Toolworks C: This compiler is a complete subset of C. The two- pass compiler 
produces relocatable object files (.obj) which are compatible with the MS-DOS LINK 
program. Mathpak is included for true 32 bit floating point and signed integers. 


Toolworks C Compiler (MS-DOS) ........-- eee eee ee ee ee ee neee $79.90 
Turbo Pascal: Borland version 3.0. The best Pascal compiler on the market 

Turbo Pascal (CP/M & MS-DOS) ...... 6... eee cece eee een ees $69.95 
Turbo Toolbox: Set of 3 utilities for use with Turbo Pascal. 

Turbo Toolbox (CP/M & MS-DOS) ..... 2.2... eee ee eee ences $54.95 
Turbo Tutor: Teaches step-by-step how to use Turbo Pascal. 

Turbo Tutor (CP/M & MS-DOS)... 01... eee ee ee ee ee eee ee ete es $34.95 


Turbo Graphics: Provides full graphics management for producing windows, pie 
and pie charts, circles and other geometric shapes with Turbo Pascal. 
Turbo Graphics (MS-DOS) .... 0... eee cc eee eee tee cnet eees $54.95 


TEXT EDITING 


Punctuation & Style: Improves your writing by catching unbalanced quotes, 
parentheses and brackets, improper abbreviations, capitalization, sentence 
structure, much more. It's like having your own copy editor! 

Punctuation & Style (CP/M & MS-DOS) ......... scene eee ee eee $125.00 


Word Finder: This powerful 90,000 word Thesaurus allows you to select the best 
word for the application. Works inside WordStar for greater ease of use. Instantly 
searches its dictionary, then displays synonyms, and automatically deletes the 
“wrong” word and replaces it with the “right” word. Requires 380K disk storage. 

Word Finder (CP/M). 1.0... 2. cece cece t et een etter erent erence $79.95 


Wordpatch: Print files with tiny, compressed, wide, or wide compressed type faces, 
5 sizes of italic, real superscripts and subscripts, and 6, 7, and 8 lines per inch 
spacing. No new print controls to learn. Supports most popular dot matrix printers. A 
must for WordStar users! 

Wordpatch (CP/M & MS-DOS) ... 1... - eee eee ee ee ee ees $49.95 


The Word Plus: The ultimate spelling checker. Not only finds misspelled words but 
shows you correct spelling options, shows the word in context, allows you to build 
dictionaries of special words you use, and much more. 

The Word Plus (MS-DOS) .... 0... cece ee eee eee cee etree eees $150.00 


HARDWARE & SUPPLIES 


Finger Print “Letter Writer’: Unieash your Epson FX series printer. Add near- 
letter-quality print, IBM and/or Apple Graphics printer emulation, plus 16 other print 
functions! Three replacement chips quickly fit inside Epson FX series printers. Easy 
installation. Does not void printer warranty. 

Finger Print "LetterWriter”... 22.6... ee cee eect tence $79.95 


Diskettes, Double Density: 


Maxell 10-pack w/ storage box: 3M box of 10: 

Single Sided .............- $19.95 Single Sided............. $22.95 
Double Sided ............. $23.95 Double Sided............ $26.95 
Economy Diskettes: package of 25 including tyvek sleeves. 

re eeerrrr—“i—“_isS—s—s—s—sCSCOCSCSNSCSCS*SCSC*Cié‘C‘CRECNNCR’CC... $29.50 
a SCO i ri ee ee ee ies $31.25 


Call or write for our FREE catalog 


All items are warranteed for 90 days. 30 day money back guarantee if not 
completely satisfied. Guarantee for software applies only if diskette seal is intact. 
Visa and MasterCard are welcome. Please add 2.00 freight per total order and 2.00 
for COD orders. California residents please add 6% sales tax. Prices, availability and 
specifications subject to change without notice. 


National 


(800) 821-8778 
CALL TODAY nia (800) 521-7182 


Hours: Mon - Fri8 am-5 pm PDT 
DEALER INQUIRIES WELCOME 


3nuent. asa Fc La Pam ay 
Anaheim, CA 92806 


preductss ie. (714) 630-0446 











get offsets list. 

The name field addresses of all 
verbs in the host are entered into the 
nfa list by the verb NFALISTFILL. 
NFALISTFILL fills this list in the se- 
quence followed by the recursive- 
branch-searching routine when 
searching the host dictionary (starting 
at the verb pointed to by FORTH 
CONTEXT @ @). This list is not nec- 
essarily in the same sequence as the 
physical order of the dictionary, and 
thus must be sorted. Since the list usu- 
ally has large areas that are already in 
sequence with just the order of these 















In stock, shipped same day. 


LL] General Libraries $185 
(Comm Library $185 
LICI186 Compiler $349 
OLattice C $395 
CO) Mark Williams $475 


PRICES ARE SUBJECT TO 
CHANGE WITHOUT NOTICE. 





ARE YOU TRYING 
TO COMMUNICATE ? 


C programs can communicate with the world now through the power of 
The Greenleaf Comm Library. Now from the people who brought you The 
Greenleaf Functions General Library for C, comes this rich interrupt driven, 
ring-buffered asynchronous communications capability. 


Over 100 functions in C and assembler to facilitate communications at up to 
9600 baud. Up to eight ports at a time. ASCII or XMODEM. X-On/X-Off too. 
Hayes compatible modems controlled here. Safe too, bet you can’t exit your 
application with interrupts hot. Major applications around the world base 
their communicating applications on The Greenleaf Comm Library. Stop just 
trying and start really communicating. Get your copy of The Greenleaf Comm 
Library today. For all major C compilers, all models, all versions. For the 
IBM PC and just about any machine with MSDOS and an 8086. Comes with 
source code, extensive examples, demo programs, featuring C-Terminal, 
reference card and newsletter. No royalty. $185 


Other Products: The Greenleaf Functions General Library, over 220 
functions for total control of the IBM PC, with source. $185 for the compilers 
listed below. (See ordering instructions below). 


GREENLEAF 
COMM 
LIBRARY ™ 


Specify compiler when ordering: Lattice, Microsoft, Computer Innovations, 
Mark Williams, or DeSmet. Add $7.00 for UPS Second Day Air (or $5.00 for 
ground). Texas residents add sales tax. Mastercard, VISA, check, or P.O. 


For Information: 


214/446-8641 


blocks out-of-sequence, the sort can 
be performed rapidly by the verb 
WINDOWSORT. This routine detects 
the limits of the out-of-sequence 
blocks with WINDOWTOP, FRAME- 
BOTTOM, and WINDOWBOTTOM. 
The blocks are then moved into se- 
quence by OPENMOVE. 

The relocation routines compare 
the host Forth image generated by 
TARGI (in the DOS file TAR- 
GET.TMP) with the current resident 
image (TARG2). These images should 
differ only for addresses, and the ad- 
dresses should be different by exactl 


GREENLEAF 
SOFTWARE © 








2101 HICKORY DR. 
CARROLLTON, TX 75006 































201H. All addresses within the verbs 
being included in the target machine 
code must be recalculated to account 
for the squeezing out of unwanted 
verbs in the host. Certain addresses at 
the beginning of the target code must 
also be patched to reflect the memory 
map of the target machine. 

Either of two pairs of routines di- 
rect this relocation operation, de- 
pending on whether headers are to be 
included in the target code (either 
RELOCATE and VERB>TARG, for 
headers, or RELOCATENH and 
VERB>TARGNH, for no headers). 
RELOCATE directs DISCARD to ad- 
vance the file containing the image of 
TARGI past areas of the file that are 
to be discarded. The verb VERB> 
TARG then copies the verb currently 
being examined by RELOCATE to 
the target image file. All addresses 
detected by VERB>TARG are exam- 
ined by REPAIRADD, which returns 
the address reflecting the relocation 
of the current verb. If a link address 
is being adjusted, REPAIRADD 
directs NEWLINK to determine a 
new link address to account for inter- 
vening verbs in the host that are not 
to be included in the target code. In 
this process, the host dictionary 
structure is lost and the target dictio- 
nary links will reflect the physical or- 
der of its verbs. REPAIRADD detects 
whether the addresses need to be 
patched by PATCHADD to take into 
account the memory map of the tar- 
get machine. REPAIRADD then con- 
sults the target offsets list to adjust 
the addresses to reflect the relocation 
of code. 

If numbers in the two images are 
not equal, the verb VAR examines the 
code to determine if the number is in 
the data area of a variable. If this is 
not true, an error is issued by VAR 
and a dump produced by DUMP/=. 
In this case the tagged verbs are all 
untagged to allow examination of the 
host system from the outer interpret- 
er by the application programmer. 

If no headers were to be included, 
the same steps as above occur except 
that RELOCATENH and VERB> 
TARGNH are used. Because headers 
are not to be included in the target 
code, the vocabulary links do not 
need to be recalculated. 
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After all tagged verbs have been 
relocated and the application code 
file closed, a map of the memory allo- 
cation of the target machine is dis- 
played by TARGETMEMORY. Dur- 
ing the relocation process, each verb 
to be included in the target code is 
displayed on the screen along with its 
address in the target machine. This 
information is also copied to a file if 
requested (1 ’ MAPFILE !) by the ap- 
plication programmer. 

The DOS file interface is identical 
for both the CP/M-80 and MSDOS 
versions. The primary verbs are FC@ 
and FC!. These verbs fetch or store a 
byte from the sequential DOS file 
specified by the file specification ad- 
dress on the stack. The defining verb 
FILE creates a verb that functions 
like a verb created by VARIABLE. 
The verb created by the defining 
FILE has three parts: first, a count 
index byte; second, a disk memory 
area (128 bytes); and third, a DOS 
filename specification area (file con- 
trol block). When the verb is execut- 
ed at run-time, the address of the 


count byte is left on the stack. The 
verb DMA will advance this address 
to the disk memory area, and the verb 
FCB will advance the count byte ad- 
dress to the DOS filename specifica- 
tion area (file control block). The 
verbs FILE@ and FILE! are used by 
FC@ and FC! to fetch or store the 
next sequential segment to or from 
the disk memory area. Note that the 
file areas can be reused as often as 
desired. The verbs SPACEFILE, 
SPACESFILE, CRFILE, TYPEFILE 
and U.RFILE perform output func- 
tions to a file that are the same as 
analogous screen display verbs. 

There are other verbs involved in 
maintaining the DOS file directory and 
in opening and closing DOS files. These 
verbs all return status flags except 
SETDMA. The verb FILENAME? que- 
ries a DOS filename from the keyboard 
and then sets up the filename specifica- 
tion area to be ready to search for or 
open a DOS file. File specification can 
also be loaded by the string-handling 
verb PUTS with string verbs created by 
the defining verb STRING. 


VARIATIONS IN C 
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Complex Forth Constructions 
Forth allows great flexibility in gen- 
erating new programming construc- 
tions. Rather than trying to antici- 
pate all possible new constructions, 
we decided to have the recompiler 
handle simple cases, but to allow the 
application programmer easy access 
to change the recompiler to handle 
more complex cases. Examples of 
cases that the recompiler does not 
currently handle are: |.) a new verb 
with the function of colon; 2.) verbs 
that have an unusual effect on the pa- 
rameter field of a verb being com- 
piled (such as branches and literals). 
The recompiler does properly han- 
dle simple CREATE-DOES> con- 
structions (such as the defining verb 
STRING, screen #125). A verb such 
as F$ (screen #128) would be includ- 
ed in the application code if it had 
been referenced. The application 
code would also include the defining 
verb (STRING) since this verb con- 
tains the run-time action of the de- 
fined verb (F$). All other verbs nec- 
essary for the function of the DOES> 


Wevecoan 
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portion of the defining verb would 
also be included. 

If the recompiler finds a value in a 
code field of a verb that it does not 
recognize, then that verb will be in- 
cluded in the application code; how- 
ever, no further searching of this verb 
occurs. If this verb was the result of a 
new colon-type definition, then not 
searching this verb may result in 
some verbs that are needed not being 


included in the application code. 

The recompiler may not generate 
the proper application code if there 
are bytes in the parameter field of a 
colon-defined verb that are not a code 
field address (or special instances that 
the recompiler has been instructed to 
search for, for example, branches and 
literals). 

The recompiler has been designed 
to allow cases such as those described 


, | eet 
sae yeeros tte Pe during the 
Serres Blasco as | ao 
Se tunuee a more fe Bits ee 
~ software libraries and tools 3 
ee BTU ET money-back guarantee 
RGU nvaconana ton tits Sea 
Join the thousands of Lattice C users. Call Lattice 
oe co complete information.on the Lattice C Com- 
piler, Lattice C Cross Compilers, C Function Libraries, 


and C Utilities! 


Ask about our ‘‘Trade Up To Lattice C’’ uta 


Lattice, Inc. 
P.O. Box 3072, Glen Ellyn, IL 60138 


CUSIP iel mri om Oli ifnet 


Phone: (312) 858-7950 TWX:910-291-2190 


BENELUX: De Vooght. Phone (32)-2-720.91.28 ENGLAND: Roundhill. Phone (0672) 54675 JAPAN: Lifeboat, Inc. Phone (03) 293-4711 
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above to be easily included in the re- 
compiler by the application program- 
mer. The verb PFSKIPS on screen 
#137 must be augmented to handle 
special bytes within the parameter 
field of colon-defined verbs. The verb 
TREETAG on screen #139 can be 
augmented to handle cases such as 
newly defined colon-type definitions. 

The verb EXIT must not be used 
since the verb tagging routines as- 
sume that the cfa of the verb EXIT 
terminates each colon defined verb. 
The cfa of EXIT must be the last cfa 
in the parameter field of a colon verb 
and must not appear anywhere else in 
the definition. 


Availability of the Ready-to-Run 
Target Compiler from CICFIG 

This project grew out of the needs of 
several of the CICFIG members for a 
target compiler to use to generate 
PROMable code for our work on vari- 
Ous instrumentation control applica- 
tions. We are placing the result of our 
efforts in the public domain because 
we believe there is a broad-based 
need for such a package. This target 
compiler fulfills a large part of our 
initial desires. It has not been ported 
to as large a variety of microproces- 
sors as we had initially hoped, but 
this may change after the release of 
this code. 

The address relocation process is 
not as fast as we had hoped; however, 
the modular design of the recompiler 
will allow us easily to replace these 
routines with more efficient ones in a 
later release. 

Since the generation of TARGI. 
COM and TARG2.COM may be a bit 
complicated due to the recoding of 
certain parts of the kernel of the host 
Forth system, we have decided to dis- 
tribute (at a cost of $30) a package 
containing the target compiler and all 
the parts of the target compiler gen- 
erator. This package contains: the 
ready-to-run target compiler 
(TARGI and TARG2), the verb tag 
tracer, and a program to filter the 
CP/M-80 target code to move the re- 
turn stack pointer to RAM. Also in- 
cluded are the sources (Forth blocks 
and DOS files) for the recompiler, the 
examples, and the kernels. Documen- 
tation on the generation of the target 
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compiler and its use to target-compile 
application code are also included. 

At present we are supplying this 
material for use on MSDOS compati- 
ble computers and on CP/M-80 com- 
patible systems. Other systems may 
become available later and we should 
be contacted. Disk formats which are 
available are MSDOS Version 2 IBM- 
PC DSDD 54-inch 8-sector, CP/M-80 
Version 2.2 standard 8-inch and CP/ 
M-80 NorthStar Horizon SSDD 5'4- 
inch. 
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Glossary for the CICFIG 

Recompiler Source Code 

The following abbreviations are used 

in the stack pictures. 

a address (16 bit addressing) 

b byte 

cfa code field address 

f flag (0 = false) 

fa __ file address (the address of the 
first byte of a data area created 
by the defining word FILE) 

n number (16 bit signed) 

nfa name field address 

pfa parameter field address 

IFIX ( --- a ) scr# 122 A variable 

used to avoid patching the link field 

of the verb ! when headers are to be 

included in the target code. 


Dr. Dobb’s Journal, October 1985 


OBRANCHCEA ( --- cfa ) scr# 124 
A constant that leaves the cfa of 
OBRANCH. 

‘S (--- ) scr# 126 Put a zero (null) 
at the next byte of the input stream to 
terminate interpretation of a screen. 

<+LOOP>CEFA ( --- cfa ) scr# 
124 A constant that leaves the cfa of 
<7 LOOP 

<0 SCRA Ht = eta) ser i124 Ak 
constant that leaves the cfa of <.”>. 
</LOOP>CFA ( --- cfa ) scr# 124 
A constant that leaves the cfa of 
</LOOP>. 

<:CODE>CEA ( --- cfa ) scr# 124 
A constant that leaves the cfa of 
<:CODE>. 

<ABORT’’>CEFA ( --- cfa ) scr# 
124 A constant that leaves the cfa of 
<ABORT’ >: 

<LOOP>CEFA ( --- cfa ) scr# 124 
A constant that leaves the cfa of 
<LOOP>. 

>TTAG (--- ) scr# 136 Execute the 


verb TREETAG. This allows a for- 


ward reference to TREETAG during 
compilation of the recompiler. 
APPTAG ( --- ) scr# 140 This verb 
routes the verb tagging routines. 


THE BEST Z&0 
ASSEMBLER ON 
ee Cee yg 
GOT BETTER! 


ASCII ( --- b ) scr# 127 Leave the 
number that is the ASCII code for 
the next character after space in the 
input stream. 

BRANCHCEA ( --- cfa ) scr# 124A 
constant that leaves the cfa of 
BRANCH. 

CASE ( --- ) scr# 127 Defined in 
“Raker Case Statement” FORTH 
Dimensions 11/3 p 37, 9/80. 
CLEANUPDOS (( --- ) scr# 155 
Flushes and closes the DOS files used 
by the relocation routines. 
COUNTVERBS ( nfa --- ) scr# 134 
Search the dictionary of the host 
Forth system from the verb with 
name field address nfa to the begin- 
ning of the dictionary. Keep a run- 
ning count of the number of verbs en- 
countered in the variable VERBS#F, 
and the number of tagged verbs in the 
variable TVERBS#. This verb is re- 
cursive and is started by leaving the 
nfa obtained from FORTH CON- 
TEXT @ @. The entire host Forth 
system is searched through recursive 
calls to COUNTVERBS to include 
all vocabularies. 

CREATE-DOES> (a --- ) scr# 138 


Z80ASM 


ON teed t= bata 





DON’T ASK HOW OURS CAN BE SO FAST... 
ASK WHY THEIRS ARE SO SLOW! ? 
“ _a breath of fresh air. .” 


ar . 
Computer Language, Feb. 85 Now fully compatible with M80 


in .2Z80 mode with many exten- 
sions. Time & date in listing, 16 
char. externals, plus many other 
features. 


« in two words, I’d say speed & 
flexibility”, 
Edward Joyce, User’s Guide #15 


NORMALIZED PERFORMANCE 
Assemble 
ZCPR3 
to create a 
HEX file. 


To order, or to find out more 
about our complete family of 
development tools, call or write: 


__.5 LR_Systems 


1622 N. Main St., Butler, PA 16001 
(800) 833-3061, (412) 282-0864 
Telex 559215 SLR SYS 


ASS. C.OeD., Check or 
ey Money Order Accepted 


ASM (2500AD) 
ZAS (Mitek, Echelon) 
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1.00 Z80ASM 





1:17 3:26 5:25 6:13 06 :22 :49 1:00 
SHIPPING: USA/CANADA + $3 ¢ OTHER AREAS + $10 
eae ma es Z80 CP/M compatibility required. 


Circle no. 78 on reader service card. 
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Fatten 
Your Mac 
for $5.00 | 


Thanks to Macintosh owners 
everywhere, Dr. Dobb $s January 1985 
issue #99 was a runaway best-seller. 


Now, due to popular demand, the 
Doctor has reprinted the sought-after 
Fatten Your Mac article from the sold- 
out January issue. The article explains 
how you can pack a full 512K of 
memory into your system, and save half 
the cost by performing the upgrade 
yourself. 





To order: Enclose $5.00 for each copy 
with this coupon and send to: 


Dr. Dobb’s Journal, 2464 Embarcadero 
Way, Palo Alto, CA 94303 

Outside U.S., add $2.00 per copy for 
shipping & handling. 


Please send me copies of Fatten 
Your Mac. ALL REPRINT ORDERS 
MUST BE PREPAID. 





Name Se 
AGUIGsS <2 Fee 8 Se ed See eee ie 


CNY sun i ee State Zip 








Please allow 6-9 weeks for delivery. 


Offer expires Dec. 31, 1985 3108 
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Tag the verb with the largest nfa less 
than the address a. If a points to the 
DOES> portion of a verb that is a 
CREATE-DOES> construction, 
continue to TREETAG all verbs 
which the DOES> portion of this 
verb requires. Otherwise, indicate an 
exception (“*--- Code verb assumed’’) 
and continue without searching the 
verb that the address a points into. 
CRFILE ( fa --- ) scr# 134 Append a 
<cr> to the DOS file specified by 
the file address fa. 

DDRIVE ( --- ) scr# 141 Prompt the 
operator, and pause until a key is 
pressed. 

DISCARD (n --- ) scr# 152 Discard 
n bytes from the file IMG 
(TARGET.TMP). 

DJMPLEN ( --- n ) scr# 120 An im- 
plementation specific constant that 
leaves the number of bytes of the ma- 
chine code sequence that is a jump to 
DODOES at the start of the 
DOES> portion of a ““CREATE 
DOES>” defining verb. 

DMA ( fa --- a ) scr# 128 Leave the 
address of the disk transfer area of 
the file specified by the file address 
fa. 

DOCODE ( --- a ) scr# 122 A vari- 
able used in TREETAG to determine 
if the verb being currently examined 
is a code level verb. 

DOCOL ( --- a ) scr# 124 A con- 
stant that leaves the address of 
DOCOL. 

DOCON ( --- a ) scr# 124 A con- 
Stant that leaves the address of 
DOCON. 

DOESJMP ( --- b ) scr# 120 An im- 
plementation specific constant that 
leaves the first byte of the machine 
code sequence that is a jump to DO- 
DOES at the start of the DOES> 
portion of a “CREATE DOES>” 
defining verb. 

DOUSE ( --- a ) scr# 124 A constant 
that leaves the address of DOUSE. 
DOVAR ( --- a ) scr# 124 A con- 
Stant that leaves the address of 
DOVAR. 

DOVAR? ( --- a ) scr# 122 A vari- 
able used as a flag by the code reloca- 
tion routines to signal that a variable 
is currently being relocated. 

DOVOC ( --- a ) scr# 124 A con- 
Stant that leaves the address of 
DOVOC. 


DOWN ( --- a ) scr# 122 A variable 
whose value is used as a pointer to 
within the name field address list. 
DUMP (an --- ) (defined in MVP- 
FORTH Utilities) Display the con- 
tents of the n bytes of memory start- 
ing at address a. 

DUMP/= (a--- ) scr# 148 Display 
the contents of memory in the vicini- 
ty of the address a. This will help to 
identify the section of the Forth sys- 
tem that was not equivalent to the 
image in the DOS file TAR- 
GET.TMP. In addition, the DOS 
files are closed, all tagged verbs are 
untagged, and then the program 
aborts. 

ENDCASE ( --- ) scr# 127 See 
CASE. 

ENDOF ( --- ) scr# 127 See CASE. 
EXITCFA ( --- cfa ) scr# 124 A con- 
stant that leaves the cfa of the verb 
BALI. 

F$ ( --- an ) scr# 128 A string cre- 
ated by the defining verb STRING. 
There are n bytes currently in F$, 
starting at address a. This string 
holds the name of the DOS file 
TARGET.TMP. 

FC! (b fa --- ) scr# 133 Append the 
byte b to the file specified by the file 
address fa. 

FC@ ( fa --- b ) scr# 133 Get the 
next byte b from the file specified by 
the file address fa. 

FCB ( fa --- a ) scr# 128 Leave on 
the stack the address of the file con- 
trol block area specified by the file 
address fa. 

FCLOSE ( fa --- f ) scr# 131 Close 
the DOS file specified by the file ad- 
dress fa. Leave the flag FFFF hex if 
the file cannot be found, 0 if 
successful. 

FCREATE ( fa --- f ) scr# 130 Make 
(and open) a new DOS file with the 
name specified by the contents of the 
FCB area of the file specified by the 
file address fa. Leave FFFF hex if no 
more directory space is available, 0 if 
successful. 

FDELETE ( fa --- f ) scr# 130 De- 
lete the DOS file with the name spec- 
ified by the contents of the FCB area 
of the file specified by the file address 
fa. Leave FFFF hex if the file was not 
found, 0 is successful. 

FILE ( --- ) scr# 128 A defining 
word that creates a verb that func- 
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tions like a variable with 162 bytes. 
Use like VARIABLE: FILE <file- 
name>. In the parameter field of 
<filename>, the first byte is used to 
keep a count on the disk memory 
transfer area from DOS (the 128 
bytes where data transfers from DOS 
are stored), and the last 33 bytes are 
used as the DOS file control block for 
the DOS filename. 

FILE! ( fa --- f ) scr# 132 Append 
the 128 bytes in the file transfer area 
of the file specified by the file address 
fa. Leave FFFF hex if the disk was 
full, 0 if the write was successful. 
FILE@ ( fa --- f ) scr# 132 Read the 
next 128 bytes into the DMA area 
from the DOS file named in the FCB 
area of the file specified by the file 
address fa. Leave FFFF hex if no 
more data can be read, 0 if the read 
was successful. 

FILECREATE ( fa --- f ) scr# 132 
Make (and open) a new DOS file de- 
leting if necessary an existing file 
with the same name. The DOS file is 
named by the contents of the FCB 
area of the file specified by the file 
address fa. Leave FFFF hex if no di- 
rectory space was available, O if 
successful. 

FILEEOF ( fa --- f ) scr# 132 Leave 
FFFF hex if the last allocated byte of 
the DOS file specified by the file ad- 
dress fa has been read; 0 otherwise. 
FILENAME? ( fa --- ) scr# 129 
Prompt the keyboard for a DOS fi- 
lename. The filename is loaded into 
the FCB area of the file specified by 
the file address fa. 

FINDTAG ( al --- a2 ) scr# 146 
Search the name field address list 
starting at address al and leave the 
the address a2 of the next location in 
the list that has a value that points to 
a tagged verb. 

FIXLINK? ( --- a ) scr# 122 A vari- 
able used by the relocation routines 
when the target code is to contain 
headers. A non-zero value indicates 
that the next encountered address is a 
link and must be patched to correct 
for the possible absence in the target 
code of the verb to which the link 
used to point to. 
FIXSMUDGE ( --- ) scr# 147 This 
verb sets to zero the smudge bit of all 
verbs which have been tagged by the 
tagging routines. 
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FLIP (nl --- n2 )scr# 126 Swap the 
high and low bytes of the word on the 
stack. 

FNSEARCH ( fa --- ) scr# 130 
Have DOS search for the next file 
that matches the file named (wild- 
cards are usually used) in the FCB 
area specified by the file address fa. 
The matching DOS filename is re- 
turned in the disk memory transfer 
area last assigned by the verb 
SETDMA. Leaves FFFF hex if no 
match is found, 0 if a match is found. 
FOPEN ( fa --- f ) scr# 131 Open a 
DOS file with the name contained in 
the FCB area of the file specified by 
the file address fa. Leaves FFFF hex 
if the file cannot be found, 0 if the file 
was successfully found. 
FORTHORG ( --- a ) scr# 120 An 
implementation specific constant 
that leaves the address of the origin 
of the current host Forth system. 
FRAMEBOTTOM ( al n --- a2 ) 
scr# 144 Search down the name field 
address list from the pointer al until 
the value in the list is less than the 
number n. Leave the pointer a2 for 
this entry. 

FRAMEIN ( --- nl...nj ) scr# 142 
Construct the framework for the verb 


lists on the stack by leaving zeros for 
the j cells required. Certain locations 
within the lists and certain pointers to 
the lists are initialized. The verb 
RAZE will return the stack to its 
depth prior to FRAMEIN. The num- 
ber j is calculated from the variables 
VERBS# and TVERBS#. 

FREAD ( fa --- f ) scr# 131 Read 
the next 128 bytes from the file speci- 
fied by the file address fa. These 
bytes are transferred to the disk 
transfer area specified by the last call 
to the operating system (SETDMA). 
Leave FFFF hex if there is no more 
data available, 0 if the read was 
successful. 

FSEARCH ( fa --- f ) scr# 130 Have 
DOS search for the file named in the 
FCB area of the file specified by the 
file address fa. Leave FFFF hex if no 
match is found, 0 otherwise. 
FWRITE ( fa --- f ) scr# 131 Ap- 
pend 128 bytes from the last disk 
transfer area set (SETDMA,), to the 
file named in the FCB area specified 
the file address fa. Leave FFFF hex if 
the disk was full, 0 if the write was 
successful. 

HEADERS ( --- n ) scr# 123 A con- 
stant that leaves either 0 if the recom- 


U S Sottware 





8051 


FPAC/DPAC™ 


Floating Point Libraries 


Source Assembly 
Complete Math Functions 
Data Conversion Procedures 


Application Support 
Software 


IEEE Single & Double Precision Format 


8086 


USX™ 


Multi-Tasking Executives 


e Real-Time and ROMable 
e Dynamic Task Management 
e Priority Task Scheduling 
e Memory Management — 


United States Software Corporation 
5470 N.W. Innisbrook Place e Portland, Oregon 97229 ® (503) 645-5043 


Circle no. 150 on reader service card. 
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piler is to generate headerless code, 
or the pfa of the root verb of the ap- 
plication program if headers are to be 
included in the target code. 

HITKEY ( --- ) scr# 141 Pause until 
a key is depressed on the console. 
ID.FILE (nfa fa --- ) scr# 135 Copy 
a verb name to the file specified by 
the file address fa. 

IMAGESAVE ( --- ) scr# 141 Copy 
an image of the current Forth system 
from FORTHORG to HERE to the 
DOS file TARGET.TMP. 

IMG ( --- fa ) scr# 128 A file specifi- 
er created by the defining verb FILE. 
Leaves the address fa of the disk 
transfer area count byte. 

ISFF ( fl --- f2 ) scr# 130 Leaves 
FFFF hex if f1 is FF hex, 0 otherwise. 
ISZERO ( fl --- f2 ) scr# 130 
Leaves 0 if fl is 0, FFFF hex 
otherwise. 

LB (n--- b ) scr# 128 Leave the low 
byte of the number n. 

LITCFA ( --- cfa ) scr# 124 Leave 
the cfa of the verb LIT. 

LOADFCB ( al n a2 --- ) scr# 141 
Zero 33 bytes starting at address a2 
(an FCB area), and move n bytes 


pe ; 








e Real, state-of-the-art typesettin 
mathematical and scientific materia 


e Produce work of this quality on your Epson printer: 


PY fel= fe sinaey. GE. 


Pp prime 


e Produce this quality work on a Corona Laser Printer: 


» G(z) ise eln G(Z) se exp( =) 2 iW 25k /k 


ePC 


CLaser printer drivers: 


PERSONAL 


is here! 


Complete TEX82 Typesetting for your PC /XT or AT 
g spon of handling all 


includes a 120-page beginners guide and macros, 
and the LaTgX Document Preparation System and macros. 

e PCTExX is a full implementation of Donald Knuth’s TEX82. 

e PCTEX: only $279. PCDOT dot-matrix printer driver: $100. 
Printers: IBM Taphics, Sep FX, RX 

Drivers include over 200 fonts. 

Requires DOS 2.0 or better, 512K RAM, 10M hard disk. 


(For Corona, QMS, Apple.) 


20 Sunnyside, Suite H, Mill Valley, CA 94941. 
(415) 388-8853. Telex 275611. 


TeX: American Mathematical Society. PC TpX: Personal TeX. Inc.. IBM-PC: IBM Gorp.. QMS: QMS. Inc 


from address al to address a2 +1. 
LTIB ( --- a ) scr# 120 A constant 
that leaves the address of a cell in low 
memory that contains a pointer to the 
terminal-input-buffer. 

M$ ( --- an ) scr# 128 A string cre- 
ated by the defining verb STRING. 
There are n bytes currently in M$, 
starting at address a. This string 
holds the DOS filename attribute 
MAP. 

MAP ( --- fa ) scr# 128 A file speci- 
fier created by the defining verb 
FILE. Leaves the address of the disk 
transfer area count byte. 

MAPFILE ( --- f ) scr# 123 A con- 
stant that leaves a zero if no map file 
is to be generated; otherwise, signal 
the generation of a DOS ASCII file 
<filename>.MAP with the names 
and addresses of the verbs included in 
the target code. 

MAXNFA ( nfal a nfa2 --- nfa3 a ) 
scr# 135 This verb recursively 
searches the entire host dictionary 
Starting at nfa2 (FORTH CON- 
TEXT @ @) and returns nfa3 which 
is the maximum nfa that is less than 
or equal to a. When started, nfa3 








k a's 1 b's 





k+1 elements 











k>1 k>1 







» LQ1500, Toshiba.) 
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should be 0. 

NEWLINK (-nfal --- nfa2 ) scr# 
148 Find the host name field address 
nfa2 of the verb that when moved to 
the target code, should be pointed to 
by the link field of the verb with the 
host name field address nfal. 
NEXTNFA ( nfal --- nfa2 ) scr# 
150 Leave the name field address 
nfa2 of the next verb in physical or- 
der in the host Forth system after the 
verb with the name field address 
nfal. If the verb with name field ad- 
dress nfal is the last verb in the dic- 
tionary (in physical order), then leave 
HERE. 

NFALISTFILL ( nfa --- ) scr# 143 
Search the dictionary of the host 
Forth system from the verb with 
name field address nfa, to the begin- 
ning of the dictionary. Enter the 
name field address of all verbs en- 
countered in the name field address 
list. This verb is recursive and is start- 
ed by leaving the nfa obtained from 
FORTH CONTEXT @ @. The en- 
tire host Forth system is searched 
through recursive calls to NFALIST- 
FILL to include all vocabularies. 
NFTAG ( nfa --- ) scr# 136 Set the 
smudge bit of the verb with name 
field address nfa to 1. 

NLIST ( --- a ) scr# 123 A constant 
that leaves the address of the first en- 
try in the name field address list. 

OF ( --- ) scr# 127 See CASE. 
OFFSETS ( --- ) scr# 146 Enter into 
the tagged verb offsets list the name 
field addresses (or code field address- 
es) of all tagged verbs in the host 
Forth system. With each entry, store 
the difference between this address in 
host Forth system and the address 
that verb will be at in the target code. 
OPENMOVE ( al a2 a3 --- ) scr# 
145 Insert at list pointer a2, the sec- 
tion of the name field address list that 
Starts at pointer al and ends at point- 
er a3. See WINDOWSORT. 
PATCHADD (al --- a2 f ) scr# 149 
If the flag f is 1, then the address a2 
found at the address 41 should be cor- 
rected to a new address for the target 
code. If the flag f is 0, then the ad- 
dress a2 should not be corrected. This 
is used to allow loading of target code 
RAM addresses. 

PATCHMAX ( --- a ) scr# 120 An 
implementation specific constant 
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that leaves the address above which 
in the host Forth system no addresses 
will need to be patched by PATCH- 
ADD for inclusion in the target 
code. 

PFSKIPS (al --- al or a2 0 ) scr# 
137 Check to see if the cfa (which is 
an entry in the parameter field of a 
colon verb) pointed to by al is in need 
of special handling, such as branches, 
loops and text. Leave the address al 
if this cfa is not an exception. Leave 
the address a2 and a 0 flag to bypass 
searching the verb referenced by al, 
and continue searching at the pointer 
Agr 2. 

PUT$ (an--- ) scr# 125 Move the 
bytes (string) in the input stream 
starting after the next space charac- 
ter to the next $ character (exclusive) 
to the address a. The byte before the 
address a stores the current number 
of bytes in the string and the byte 
below that holds the maximum num- 
ber of bytes in the string (see 
STRING). QUIT if the string is too 
long. The number n is ignored. 
RAZE ( nl...nj --- ) scr# 142 Re- 
move the verb lists (j cells) from the 
parameter stack (see FRAMEIN). 
The number j is calculated from the 
variables VERBS# and TVERBS#. 
RELOCATE ( --- n ) scr# 152 Used 
when headers are to be included in 
the target code. This word organizes 
the relocation of the necessary sec- 
tions of the host Forth system to gen- 
erate the target code. The total num- 
ber of bytes n in the target code is left 
on the stack. 

RELOCATENH (--- n_ ) scr# 154 
Used when headers are not to be in- 
cluded in the target code. This word 
organizes the relocation of the neces- 
sary sections of the host Forth system 
to generate the target code. The total 
number of bytes n in the target code 
is left on the stack. 

REPAIRADD ( al --- a2 ) scr# 150 
Leave the address a2 which is the val- 
ue at the host Forth address al, cor- 
rected to reflect the address reloca- 
tion of the code to be included in the 
target code. 

ROOF ( --- a ) scr# 123 A constant 
that leaves the address of last name 
field address in the name field ad- 
dress list. 

SETDMA ( fa --- ) scr# 131 In- 


Dr. Dobb’s Journal, October 1985 





struct DOS that the disk transfer 
area is at memory location fa+ 1. 
SETUPDOS ( --- ) scr# 155 Setup 
the DOS files for the relocation rou- 
tines of the recompiler. 

SFLAG (fl n--- f2n )scr# 136 This 
verb changes the flag fl to f2 
(f2=f1-1), This is used to determine 
the none-of-the-above case of the 
CASE construction in the verb 
TREETAG. 

SPACEFILE ( fa --- ) scr# 134 Ap- 
pend a space character to the file 
specified by the file address fa. 
SPACESFILE (n fa --- ) scr# 134 
Append n space characters to the file 
specified by the file address fa. 
STRING (n --- ) scr# 125 A defin- 
ing word used to create a dictionary 
entry for the verb with the name of 
the next character string in the input 
stream. The new verb will be allotted 
n+2 bytes. The first byte is the maxi- 
mum allotted space for the string, the 
next byte is the current length of the 
string. At run-time the new verb will 
leave on the stack the address of the 
first byte of the string and the num- 
ber of bytes in the string. 


MODEL TC-PC 

TC-PC is a high performance 9-track tape 
controller for the IBM-PC with these important 
features: 

Reads and writes industry standard ¥2-inch 
tape 

Compatible with most formatted tape drives 
Standard 8-bit parallel recording with parity, 
and read-after-write verification 

Switch selectable I/O address (four contiguous 
ports required for operation) 

Maximum data transfer rate of 192,000 bytes 
per second 

Record length from 1 to 65,535 bytes 
Supports up to 8 tape transports 

Jumper selectable DMA channel 

Modes: PE and NRZI at 800, 1600, 3200 and 
6250 bytes/inch 

Installable device drivers allow creation of 
application programs which run under IBM 
XENIX and MS-DOS 

Operates with IBM-PC and -XT; Compaq 
Portable; Zenith PC-150; Sperry PC; the 
Leading Edge Computer, and other 100% 
IBM-PC compatible equipment. 


MODEL TC-50 

TC-50 offers all the standard features of the TC- 
~ with these additional enhancements: 
Maximum data transfer rate of 400,000 
bytes/second; 904,000 bytes/second with 
memory option 

Operation with a wider range of IBM- 
compatible machines, including IBM-AT; 
Compaq Desk Pro; ATT 6300 and others 




































XENIX and MS-DOS are Registered Trademarks of Microsoft Corp 

IBM-PC/AT/XT are Registered Trademarks of International Business Machines Cor 
Compaq Portable and Compaq Deskpro are Registered Trademarks of Compaq Cor p 
AT&T 6300 AT&T Information Systems Corp. 

Sperry PC < Sperry/Univac Corp 

Zenith PC-150 < Zenith Data Systems 

Leading Edge is a Registered Trademark of Leading Edge Products, Inc. 


9 TRACK TAPE CONTROLLERS 
AND %” TAPE SUBSYSTEMS 


T’STREAM ( --- a ) scr# 129 Func- 
tions as “STREAM except that the 
verb BLOCK has been removed 
T#BUFF ( --- n ) scr# 123 A con- 
stant that leaves the number of disk 
block buffers required by the applica- 
tion program. 

TARG ( --- fa ) scr# 128 A file spec- 
ifier created by the defining verb 
FILE. Leaves the address of the disk 
transfer area count byte. 

TARGET ( pfa or 0 --- ) scr#t 157 
This verb routes the operation of the 
target compiler. If the top of the 
stack has a zero, then no headers will 
be included in the target code; other- 
wise, this value is the parameter field 
address of the root verb of the appli- 
cation program and headers will also 
be included in the target code. 
TARGETMEMORY ( n --- ) scr# 
156 Display a memory map of the 
target code that has n bytes. 
TARGMAP ( n nfa --- ) scr# 148 
Display the verb name with name 
field address nfa and display the tar- 
get code address (n + TARGORG) 
of that verb. Copy this same informa- 
tion to a DOS file if a map file has 








A variety of software utilities is supplied as part 
of the TC-PC and TC-50 packages, including: 


e DEPOT (Data Exchange Program with Optional 

Translation) 

DEPOT provides a means to transfer data 

between system disk and magnetic tape, 

allowing: 

— Data interchange from tape to disk, and 
disk to tape 

— Conversion from ASCII to EBCDIC, and vice 
versa 

— Positioning to arbitrary location prior to 
data read 

— Specification of record length and block 
factor when writing from disk to tape; 
allows deblocking when reading from tape 
to disk 

— Multiple operations to be specified from a 
command file 


e TAU (Tape Archive Utility) 

— Provides individual file backup and restore 

—_ Allows use of MS-DOS wild cards such 
as ‘ 

— Provides disk drive selections for I/O 

— Changes pathname selections from within 
TAU 

— Provides data encryption for security 





WARRANTY 

All Overland Data products carry a 30-day 
unconditional money-back guarantee, and are 
warranted for one year, parts and labor. 









OVERLAND DATA, INC. 
5644 Kearny Mesa Road #A 
San Diego, CA 92111 

Tel. (619) 571-5555 


Circle no. 39 on reader service card. 
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been requested. 

TARGORG ( --- a ) scr# 123 A con- 
stant that leaves the address of the 
origin of the target code. 

TBUFI (--- a ) scr# 123 A constant 
that leaves the address of the start of 
the disk block buffer area of the tar- 
get code. 

TCOLD!1 ( --- a ) scr# 120 An im- 
plementation specific constant that 
leaves the address of the cell in low 
memory that contains the address of 
the first verb to be executed upon 
start-up of the target code. 
TCOLDCEA ( --- cfa ) scr# 123 A 
constant that leaves the cfa of the 
first verb to be executed upon start- 
up of the target code. 

TEM ( --- a ) scr# 123 A constant 
that leaves the address of the top of 
the disk block buffer area in the tar- 
get code. 

TFIX;CODE ( --- ) scr# 140 This 
verb tags certain ;CODE verbs that 
are mandatory in the target code. 
TFIXNULL ( --- ) scr# 140 This 
verb tags the verb X (null) and then 
patches the header for this verb. 
TLIST ( --- a ) scr# 123 A constant 
that leaves the address of the start of 
the target verb offset list. 

TPICK (nl --- n2 ) scr# 126 Func- 
tions as PICK except that ABORT” 
has been removed. 

TRO ( --- a ) scr# 123 A constant 
that leaves the address of the start of 
the target code return stack pointer 
for initialization of the inner-inter- 
preter of the target machine. 
TROLL (n --- ) scr# 126 Functions 
as ROLL except that ABORT” has 
been removed. 

TREETAG ( cfa --- ) scr# 139 This 
recursive verb tags (sets the smudge 
bit to 1) all verbs in the host Forth 
system that are required for the func- 
tion of the verb whose code field ad- 
dress is cfa. 

TREETAGCFA ( --- cfa ) scr# 123 
A constant that leaves the cfa of 
TREETAG. Used to allow forward 
referencing at compilation time with- 
in TARGET. 

TSPO ( --- a ) scr# 123 A constant 
that leaves the address of the start of 
the target code parameter stack 
pointer for initialization of the inner- 
interpreter of the target machine. 
TVARIABLE ( --- ) scr# 126 A de- 
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fining word used in the form: TVAR- 
[ABLE <varname>. When TVAR- 
IABLE is executed, it creates the 
verb <varname> in the host dictio- 
nary with its parameter field initial- 
ized to the next allotted cell in the 
variable RAM area of the target ma- 
chine. This allows variables to be im- 
plemented in RAM when the target 
code is in ROM. The application pro- 
grammer must set up the target vari- 
able RAM area by loading the con- 
stant TVRAM. 

TVERBS# ( --- a ) scr# 122 A vari- 
able used to hold the number of verbs 
that have been tagged by the tagging 
routines. 

TVRALLOT (n --- ) scr# 126 Add 
the number n to the variable 
TVRAMOFF. This allows target 
variable RAM bytes to be allotted. 
TVRAM ( --- a ) scr# 123 A con- 
stant that leaves the address of the 
start of the target variable RAM 
area. This value must be loaded by 
the application programmer if 
needed. 

TVRAMOFF ( --- a ) scr# 122 A 
variable that contains the current 
number of bytes of the target variable 
RAM area that have been allotted. 
TWORD ( b --- a ) scr# 129 Func- 
tions as <WORD®> except that 
ABORT” has been removed. 
TYPEFILE (an fa --- ) scr# 134 
Copy n characters starting at address 
a to the file specified by the file ad- 
dress fa. 

U.RFILE (nl n2 fa --- ) scr# 134 
Convert the number nl to an un- 
signed ASCII number right justified 
n2 spaces. Append these ASCII char- 
acters to the file specified by the file 
address fa. 

U8 (--- a ) scr# 120 A constant that 
leaves the address of the cell in low 
memory that contains the value to 
initialize the eight user variable. 
VAR (a --- ) scr# 149 If the address 
a is the pfa of a VARIABLE defined 
verb (or the return stack pointer cell 
address) then copy the contents of 
that cell to the DOS file specified by 
TARG. Otherwise, dump the con- 
tents of the host Forth system in vi- 
cinity of the address a and indicate an 
error. 

VERB>TARG ( nfa --- ) scr# 151 
The host Forth verb (including the 


header) with name field address nfa 
is copied to the DOS file specified by 
TARG. Address relocation and 
patches are performed. 
VERB>TARGNH ( cfa --- ) scr# 
153 The host Forth verb (excluding 
the header) with code field address 
cfa is copied to the DOS file specified 
by TARG. Address relocation and 
patches are performed. 

VERBLISTS ( --- ) scr# 147 This 
routine routes the construction and 
filling in of the verb lists on the pa- 
rameter stack. 

VERBS# ( --- a ) scr# 122 A vari- 
able used to hold the number of verbs 
that are in the host Forth system 
dictionary. 

VERBTAG ( a --- ) scr# 136 Tag 
(set the smudge bit to 1) the verb 
whose code field address or DOES> 
jump address is a. 
WINDOWBOTTOM (al a2 --- a3 ) 
scr# 144 Examine the values in the 
name field address list starting with 
the element pointed to by al. Contin- 
ue so long as they are decreasing and 
greater than the contents of the ele- 
ment of the list pointed to by a2. 
When this is not true, leave a3, which 
points to the element just beyond this 
point. 

WINDOWSORT ( a --- ) scr# 145 
Sort the list of unsigned numbers 
(name field addresses) between the 
high memory address a and low 
memory location specified by the val- 
ue FFFF hex in the list. At the end of 
the sort, change the entry at the bot- 
tom of the list to FORTHORG. 
WINDOWTOP ( al --- a2 ) scr# 
144 Index down the list of unsigned 
numbers starting at pointer al until 
the values in the list are no longer 
monotonically decreasing. Leave the 
pointer a2 to where this occurs. See 
WINDOWSORT. 

X ( --- ) scr# 140 This is a pseud- 
onym for null that does not have the 
compile-time parts of the host system 
Forth verb null. This version of null 
will be present in the target code. 


DD] 


(Listing begins on page 76) 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 193. 


Dr. Dobb’s Journal, October 1985 














ls Dr. Dobb’s Sourcebook: 
A Reference Guide 


for the C Programming 
Language 


S For years, serious programmers hi: 
their trade. Now, Dr. Dobb’s pres¢ 
~ where, when and why of C, the lea 








__often-used reference! 


In this valuable guide you'll find: 


* An extensive directory of pe - 


_ and software services—including 
_ classes and seminars, C | 





“line services 








I enclose check /money order 
Please charge my __VISA __M/C —_ American Express 





Card # 


Signature 


Exp. Date 











Name 








Dil orc a a eee tt 


City i SO PND ceeds 





Please allow 6 to 12 weeks for delivery 


Who Says You 
Can’t Tell Fy; 
A Book By 
: Its Cover? 


- graphics modules, utilitic : 
programming opportunities, : and o on 














Le 7 


wT 


ba 
Bho Tao 7 os the 





lied on Dr. Dobb’ S Soom io he technical tools of 

the d efinitive programmers guide to the who, what, 

g language among software developers. This i | 
~ comprehensive guide to new information, ee and services - to C will be most 


¢ A comprehensive C product 
listing—including C compilers, — | 

, editors . 
and more! _ 







and development system 


o 


-e And much more practical C 


_ eA bibliography with over 300 . / . -. 

_ listings of available articles and . . 

— books on C .  . | 

; — At only $7. 95, no C programmer can n afford to be without this unique reference. _  . 
TO ORDER: Mail this coupon, along with payment, to: Dr. Dobb’s Journal, 2464 Embarcadero Way, Palo Alto, CA 94303 

PAYMENT MUST ACCOMPANY YOUR ORDER 


programming information 


Please send me copies of Dr. Dobb’s Sourcebook 


at S795 each = 33 ee 


+ Shipping & Handling = ——— 

(Must be included with order. Please add $1.50 per book in 
U.S. $3.25 each surface mail outside U.S. Foreign airmail 
rates available on request. ) 


TOTAL = 





3108 


Procedure 


TARG1 
(A) load screen with memory map 
(B) load screen(s) with application 
(C) load screen with cold start 


O TARGET 
(control will be returned to the operating system) 


TARG2 
(A-C) exactly as above 


0 TARGET 
(upon request, supply the DOS filename for the target code) 
(control will be returned to the interpreter when complete) 





(from TARG1.COM DOS) 
(scr# 200, example #1) 
(scr# 201, example #1) 
(scr# 201, example #1) 


(0 => no headers) 


(from TARG2. COM DOS) 
(200 201 THRU) 


(O => no headers) 


Fi Or th Compiler Listing (Text begins on page 52) 


SCR #200 
1 ( No headers, No block verbs; Target Memory Map Constants) HEX 
2 ( This program outputs to printer, ASCII chars typed in in hex) 


|’ MAPFILE ! 


On & qw 


6 6000 * TVRAM ! 

7 6000 ’ TEM ! 

8 TEM ’ TBUFL ! 

9 TBUFL 52 - ' TRO! 
10 TRO AO - * TSPO ! 
11 100 ' TARGORG ! 
12 DECIMAL 
13 
14 
15 
16 


SCR #201 
1 ( LP TINPUT APP TCOLD) HEX 


: LP (b --- ) 5S SWAP SYSCALL ; 
: TINPUT ( --- n ) 00 ." ? * QUERY 1 TWORD CONVERT DROP DROP : 


REP foes NEY 

. To send an ASCII character to the printer,” CR 

9 .” type a HEX number and (cr) after '?’ {FF to terminate}." CR 
10 BEGIN TINPUT DUP FF = NOT WHILE SPACE LP REPEAT 0 0 SYSCALL ; 


oN DH ON S&S w AD 


12: TCOLD ( --- ) 0 EPRINT ! 
13 INIT-USER UP @ 6 + 30 CHOYE PAGE APP ; 


15’ TCOLD CFA ’ TCOLDCFA ! 
16 DECIMAL 


SCR #202 

1 ( No headers, No block verbs: MINIMUK Test; Target Memory Map) 
2 HEX 

30° MAPFILE ! 

4 

5 6000 ’ TVRAN ! 

6 6000 ’ TEM ! 

7 TEM * TBUFI ! 

8 TBUFL ° TRO ! 

9 TRO A- * TSPO ! 


10 100 ° TARGORG ! 
11 DECIMAL 


SCR #203 
1 ( TCOLD) HEX 


2 

3: TCOLD 0000 21 INTCALL ; 
5 

5’ TCOLD CFA’ TCOLDCFA ! 

6 DECIMAL 


SCR #204 

1 ( Headers, No block verbs: Target Memory Nap Constants) HEX 
2 

31° MAPFILE ! 

4 

5 6000 ’ TYRAM ! 

6 6000 * TEM ! 

7 TEM * TRUFI ! 

8 TBUFI 52 - ’ TRO! 
9 TRO AO - ’ TSPO ! 
10 100 ” TARGORE ! 
11 DECIMAL 


(Continued on page 78) 
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DPMA Houston ’85, 


WHERE COMPUTERS GET 
DOWN TO BUSINESS 


Data Processing Management Association's 
Annual International Computer 
Conference and Business Exposition 


Oct. 28-30, 1985 


Albert Thomas Convention & Exhibit Center 
Houston, Texas 
Open To All In The Computer or Related Industries 
_. Seminars. . .Workshops. . .Panel Discussions 
...Tutorials. . .Half-Day Sessions. . .Exhibits 





Conference Highlights 


e Impact on Information Management 
e Small Systems Environment e Back to Basics 


e Controlling the Revolution e And many more topics 


e Conference On-Site Registration Begins on October 27. AllCom- 
puter Industry Professionals are Welcome to Attend. 





Business Exposition 


Products, services and supplies by the nation’s leading com panies 
including AT&T. ..Digital Equipment Corp....Eastman Kodak. .. 
IPM. . .Radio Shack. . .Xerox. ..Cincom Systems. . .GE. ..Lanier. . . 
and many others. 


Houston’s the perfect site! 


As the nation’s fourth largest city, fun, exciting and comfortable—day 
Houston hasimmense financial wealth and night. The Albert Thomas Conven- 
with expanding opportunities and tion and Exhibit Center is located in 
growth. It also has one of the few re- the middle of thriving downtown Hous- 
maining center-city areas that is still ton. 







For complete details on DPMA Houston ’885, fill out the coupon below. 
DPMA HOUSTON ‘85 








Send to DPMA Houston ’85 
505 Busse Highway 
Park Ridge, IL 60068-3191 


BUSINESS i 
Oct. 28-30, 1985 | 


O Conference registration 
materials Company 

O Free exhibit-viewing 
tickets Address 

1 My company’s interested ne Ee 
in exhibiting City/State-Prov./Zip-Postal Code 

(1) Membership information 


| 
| 
| 
| 
| 
| Please send: Name/Title 
| 
| 
| 
| 
| 
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Fi Or th Compller Lis ting (Listing continued, text begins on page 52) 


SCR #205 
1 ( TABORTCFA TNABORT TNUMBER T-FIND) 


2 
3 0 CONSTANT TABORTCFA 
: TNABORT .“ NOT RECOGNIZED" TABORICFA EXECUTE ; 


: TNUMBER ( a --- d ) 

QO ROT DUP i+ C@ ASCII - = DUP DR + -1 DPL ! 

9 CONVERT DUP C@ BL ) 

10 IF DUP Cé ASCII . = NOT IF TNABORT THEN O DPL ! 
Il CONVERT DUP C@ BL ) IF TNABORT THEN 

12 THEN DROP R) IF NEGATE THEN ; 


on nO EO D> 


14°: T-FIND BL TWORD CONTEXT @ @ (FIND) ; 
1S 
16 


SCR #206 

1 ( TINTERPRET TQUIT TABORT) 

2 

3: TINTERPRET ( --- ) 

4 BEGIN T-FIND 

9 IF DROP CFA EXECUTE 

6 ELSE HERE TNUMBER DPL @ 1+ NOT IF DROP THEN 
/ THEN 

8 AGAIN ; 


9 
10: TQUIT { --- ) 

11 BEGIN CR RP! QUERY TINTERPRET .° OK" AGAIN ; 
12 

13: TABORT ({ --- ) 

14 SP! [COMPILE] FORTH TQUIT ; 

15 

16’ TABORT CFA ’ TABORTCFA ! 


SCR #207 

1 ( APP TCOLD) 

2 HEX 

3: APP CR .* HELLO FROM APP" BEGIN 2TERMINAL 2DUP UNTIL ; 
4 

3: T.R (nl n2--- ) )R O SWAP OVER DUP D+- (# #$ ROT SIGN 8) 
& R) OVER TYPE ; 

7 

8 : TCOLD ( --- ) O EPRINT | 

9 INIT-USER UP @ 6 4 30 CHOVE 

10 PAGE .“ QUIT OK" CR 

1! INIT-FORTH @ ’ FORTH 2+ ! 

12 DECIMAL TABORT HEX T.R ; 

13 DECIMAL 

14 


15’ TCOLD CFA ’ TCOLDCFA ! 
16 


SCR #208 
1 ( Block verbs, No headers; BLOCKASC; Target Heaory Hap) HEX 
2 ( Generates DOS-ASCII files of Forth disk block areas) 


3 

41’ MAPFILE ! 

3 

62° TeBUFF ! 

] 

8 6000 ’ TVRAH ! 

9 6000 * TEM ! 

10 TEM 404 TRBUFF * - ’ TBUFI | 
11 TRUFL 52 - ° TRO! 
12 TRO AO - * TSPO ! 
13 100 ’ TARGORG ! 
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14 DECIMAL 
15 
16 


SCR #209 
1 ( CHARS BLOCK)FOUT) HEX 


: CHARS (a --- n ) 

DUP C/L + 1- | 
BEGIN DUP C@ 20 = OVER 4 TPICK ) AND : 
WHILE 1- 

REPEAT SWAP - It ; 


oOo Nw Oo ON S&S WG NO 


9 : BLOCK)FOUT ( ba fa --- ) ¢ 
10 SWAP DUP 400 + SWAP 

11 DO I CHARS I + I DO I C@ OVER FC! 1 /LOOP 

12 D OVER FC! A OVER FC! C/L 

13 /LOOP DROP ; 

14 DECIMAL 

15 

16 


SCR #210 

1 ( FOUT TINPUT BLOCKASC) HEX 
2 

3 FILE FOUT 


: TINPUT ( --- n) 00." 2" QUERY 1 TWORD CONVERT DROP DROP : 


: BLOCKASC ( --- ) 

CR .” Starting block # (DEC)" TINPUT 

9 .” # of blocks” TINPUT 

10 .* DRIVE (0,1)" TINPUT 0 MAX 1 MIN IF DRI ELSE DRO THEN 

11 CR .” DOS file out name” FOUT FILENAME? FOUT FILECREATE DROP 
12 OVER + SWAP 

13 DO I BLOCK FOUT BLOCK)FOUT LooP 

14 1A FOUT FC! FOUT FILE! DROP FOUT FCLOSE DROP 

15 CR .” Task complete.” CR BYE : 

16 DECIMAL 


CON OD ON eS 


SCR #211 
1 ( TCOLD) HEX 


2 
3: TCOLD ( --~ ) O EPRINT ! 

4 INIT-USER UP @ 6 + 30 CMOVE PAGE 

S BUF] ’ FIRST ! TEM’ LIMIT ! THBUFF ’ #BUFF ! EMPTY-BUFFERS 
6 CR 1 DENSITY ! FIRST USE ! FIRST PREY ! 

7 DRO 40° C/L! 

8 DECIMAL BLOCKASC ; 

9 

10’ TCOLD CFA ’ TCOLDCFA ! 

1] DECIMAL 

12 

13 

14 

15 

16 


SCR #212 

L ( (TR/W)) 

2 

3: (TR/W) ( n --- ) USE @ )R ROT USE |! SWAP MAX-DRV O 
4 BO I DR-DEN DENSITY ' DUP BPDRY - -] ) 

3 iF dPORV - i it MAX-URY = cf JE THEN 

6 ELSE I DRIVE ! LEAVE 

7 THEN 

8 LOOP SPBLK * SPBLK 0 

9 00 DDUP T&SCALC 


(Continued on page 81) 
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THE PROGRAMMERS SHOP} 


helps save time, money and cut frustrations. Compare, evaluate, and find products. 












SERVICES Boss 

Baa Cee aiwal tia be guai Free Literature - Compare Products a ida 

- Compare Products - Newsletter Evaluate products Compare competitors Learn about new alternatives One free call Fortran >> C-FORTRIX 

+ Help tind a Publisher ¢ Rush Order brings information on just about any programming need Ask for any “Packet” or i i 

~ Evalustion Literature tree  ° Over 700 products § Addon Packet OOADA. Modula 0 “Al COBASIC °C” COCOBOL OC Editors creates maintainable translations. 


MSDOS $995 


- BULLETIN BOARD - 7 PM to 7 AM 617-826-4086 COFORTH COFORTRAN CIPASCAL (J UNIX/PC or ()Debuggers. Linkers. etc 














ARTIFICIAL INTELLIGENCE 


ARITY/PROLOG-full, debug, to ASM&C, 
16 Meg use, windows, strings. 
With compiler $1950. MSDOS $495 


EXSYS - Expert System building 
tool. Full RAM, Probability. Why, 
serious, files PCDOS $275 


GC LISP - “COMMON LISP”, Help. 
tutorial, co-routines, compiled 
functions, thorough. PCDOS Call 


LISP-86- “COMMON’ subset 
tutorial, editor, PP, trace. Best to 
learn. All MSDOS Only $95 


M Prolog - full, rich, separate 
work spaces. MSDOS $725 


PROLOG-86 - Learn fast. Stan- 
dard, tutorials, samples of Natural 
Language. Exp. Sys. MSDOS Call 


TLC LISP - “LISP-machine’-like. 
all RAM, classes, turtle graph., 8087, 
Compiler. CPM-86. MSDOS $225 


WALTZLISP - “FRANZ LISP” - like, 
611 digits, debugger, large 
programs. CPM80 


MicroProlog - improved 


CADSAM FILE SYSTEM- full ISAM 
in MBASIC source. MSDOS $150 


Quick BASIC by Microsoft - 

Compiles full syntax of IBM, 640K, 
BASICA. PCDOS $ 85 
BASCOM-86 - Microsoft 8086 279 
CB-86 - DRI CPM86,MSDOS 419 
Data Manager - full source MSDOS 325 
InfoREPORTER - multiple PCDOS 115 
Prof. Basic - Interactive, debug PCDOS 85 
TRUE BASIC - ANSI! PCDOS 125 
Ask about ISAM, other addons for BASIC 


EDITORS FOR PROGRAMMING 


BRIEF Programmer's Editor - undo, 
windows, reconfig. PCDOS Call 
EMACS by UniPress - powerful, multi- 
file, windows, DOS, MLISP language 
built in Source: $949 MSDOS $299 
FirsTime by Spruce - Improve produc- 
tivity. Syntax directed for Pascal ($235) 
or C ($285). 


MSDOS $229 


C Screen with source 86/80 75 
Epsilon - like EMACS PCDOS 195 
PMATE - powerful 8086 159 
VEDIT - well liked PCDOS 119 
XTC - multitasking PCDOS 95 


ety 


Microsoft Version II - upgraded. Full 


Lev. Il, native, screens. MSDOS $500 


MAC 459 
MSDOS 885 
PCDOS call 
MSDOS 695 


Macintosh COBOL - Full. 
MBP - Lev II, native, screen 
MicroFocus Prof.-full 

Ryan McFarland-portable 


MSDOS $159 ° 









C LANGUAGE 


C-terp Interpreter by Gimpel, 
full K&R, .OBJ and ASM interface. 


8087 


INSTANT C - Interactive develop- 
ment - Edit. Source Debug, run. 
Edit to Run -3 Secs. 


“INTRODUCING C’ - Interactive 
C to learn fast. 500 page tutorial. 
examples, graphics PCDOS Call 


Q/C 88 by CodeWorks with full 
compiler source, produces 

decent code, has cross & 

native MSDOS $295 
Wizard C - Lattice C compatible, full 
sys. III syntax, lint included, fast. 

lib. source. MSDOS $399 


MSDOS: C86-8087, reliable call 
Lattice C - the standard call 





MSDOS $255] ASM-out option 


MSDOS $395} debug. 


FORTRAN LANGUAGE 


MacFORTRAN - full ’77, 66 option. 
toolbox, debugger, 128K or 512K. 

MAC $349 
RM/Fortran - Full ’77. BIG ARRAYS. 
8087, optimize, back trace, 

MSDOS $459 


Ask about Microsoft, Supersoft, others. 


MS FORTRAN-S86 - Improved. MSDOS 239 
DR Fortran-86 - full 77 8086 249 
PolyFORTRAN-XREF, Xtract PCDOS 149 


LANGUAGE LIBRARIES 


MultiHALO Graphics-Multiple video 
boards, printers, rich. Animation, 
engineering business. 

ANY MS language, Lattice, C86 $195, 

for Turbo $95. 

Screen Sculptor - slick, thorough, 


Microsoft C 3.0 - new 259| fast, BASIC, PASCAL. PCDOS $109 
RUN/C - Interpreter 119] GRAPHMATIC - 3D, FTN, PAS = PCDOS 125 
Williams - debugger, fast call | File MGNT: BTrieve - all lang. MSDOS 199 
CPM80: EcoPlus C-faster, SLR 249 | Micro: SUDMATH - FORTRAN full 86/80 250 
BDS C - solid value 125 | MetaWINDOW - icons, cup PCDOS 119 
MACINTOSH: Hippo Level 1 109} PANEL - many lang., terminals MSDOS 239 
Consulair’s MAC C with toolkit 299 


MegaMax 239 


Compare, evaluate consider other Cs 


COMMUNICATIONS by Greenleaf 
($149) or Software horizons ($139) 
includes Modem, interrupts, etc. 
Source. Ask for Greenleaf demo. 


C SHARP Realtime Toolkit-well 
supported, thorough, portable, ob- 
iects, state sys. Source MANY $600 

Cindex + -full B+Tree, vari. length 
field. Source, noroyal. MSDOS $359 


dbVista FILE SYSTEM - full indexing, 
plus optional record types, pointers. 
Source, no royalties. MSDOS $450 
Faster C Lattice & C86 users elimi- 
nate Link step. Normal 27 seconds. 
Faster C in 13 sec. MSDOS $ 95 


PC Lint - full C program checking and 
big, small model. All C’s. MSDOS $85 


86/80 135 
ALL 345 
PCDOS 110 
MSDOS 149 
8086 219 


CHelper: DIFF, xref, more 
CTree - source, no royalties 
CURSES by Lattice 

C Utilities by Essential 

dBC ISAM by Lattice 


Greenleaf-200 + , fast. MSDOS 149 
PHACT-up under UNIX, addons MSDOS 225 
ProScreen - windows PCDOS 275 
MSDOS 175 


Windows for C - fast, reliable 


Call for a catalog, literature, and solid value 


800-421-8006 


THE PROGRAMMER’S SHOP™ 


128-DRockland Street, Hanover, MA 02339 
Mass: 800-442-8070 or 617-826-7531 1085 


Circle no. 75 on reader service card. 





OTHER LANGUAGES 


Professional Pascal - for performance; 
extensions like “packages”; “Iterators’; 
5 memory models; 64 bit 8087; strings. 
Space vs. speed optimization options. 


MSDOS $895 
SNOBOL4 + -great for strings, 
pattems. MSDOS $ 85 
MacASM - full, fast, tools MAC 99 
Assembler & Tools - DRI 8086 149 
PC FORTH - well liked MSDOS_ 89 


SUPPORT PRODUCTS 


PLINK 86 - aprogram-independent 
overlay linker to 32 levels for all MS 


languages. C86 and Lattice. $299 
Multilink - Multitasking PCDOS 265 
Pfinish - Profile by routine MSDOS 299 
Polylibrarian - thorough MSDOS_ 85 
PolyMAKE PCDOS 85 
ZAP Communications - VT 100, 

TEK 4010 emulation, full xfer. PCDOS 65 
DEBUGGERS 
Advanced Trace 86 Symbolic PCDOS 149 


Atron Debugger for Lattice, MSFTN PCDOS 369 
Periscope Debugger - PCDOS 269 
Pfix Plus Debugger MSDOS 299 
TRACE86 debugger ASM MSDOS 115 


Note. All prices subject to change without notice 
Mention this ad. Some prices are specials 

Ask about COD and POs. All formats available 
UNIX is a trademark of Bell Labs 








Dr. Dobb’s Stands Apart 


} Christensen Protocols in C 


2400 Baud and Beyond ~ 








Take a good, hard look at the crowded computer magazine 
market. If you’re a serious microcomputerist, one maga- 
zine stands apart. Dr. Dobb’s Journal. 


Dr. Dobb’s is not for everyone. It is written by and for 
expert programmers, and it’s the oldest and most techni- 
cally sophisticated microcomputer publication available. 
Since 1976, Dr. Dobb’s Journal has been the unchal- 
lenged leading source of software tools for advanced 
programmers. 


With the industry moving forward faster than ever, you 
need to stay a step ahead. Dr. Dobb’s sets the pace with: 


@ regular columns on C, Unix, MS-DOS and 16-bit 
software; 


@ algorithms and problem solving; 
© lively discussions of fundamental software issues: 


@ inside information on commercial languages and 
operating systems; 


© tips on advanced programming topics. 


The information and valuable code contained in Dr. 
Dobb’s makes each issue indispensable for serious com- 
puting professionals and enthusiasts. Don’t miss a single 
issue of this valuable resource. Subscribe today. If you 
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Fi Or f h Compiler Lis ting (Listing continued, text begins on page 52) 


10 IF SEC-READ ELSE SEC-WRITE THEN 3 
il 1+ 1024 SPBLK / USE +! 41’ MAPFILE ! 
12 LOOP DDROP R) USE ! ; 9 
13 62° TEBUFF ! 
14° (TR/W) CFA ’R/W ! i 
LS 8 6000 ’ TYRAM ! 
16 9 6000 ° TEM ! 
10 TEM 404 TEBUFF * - ° TBUFI ! 
11 TBUFL 52 - ° TRO ! 
SCR #213 12 TRO AO - ° TSPO ! 
| 13 100.” TARGORG ! 
2 14 DECIMAL 
3 15 
‘ 16 
6 
7 SCR #215 
g 1 ( GURBLOCK BCOUNT FIN BC! LINE)BLOCK) HEX 
3) 2 
10 3 TVARIABLE CURBLOCK TYARJABLE BCOUNT 
iI 4 
12 5 FILE FIN 
13 6 
14 7: BC! (b--- ) BCOUNT DUP @ 400 - 
15 9 IF | CURBLOCK +! UPDATE CURBLOCK @ BUFFER DROP 0 OVER ! THEN 
16 9 DUP @ DUP 1+ ROT ' PREV @ 2+ +! ; 
10 
i ( Block verbs, No headers; ASCBLOCK; Target Memory Map) HEX 12 IF 0 ELSE 7F AND BC’ I 
2 ( Generates Forth disk block areas form DOS-ASCII files) (Continued on next page) 

































Sidekick for CP/M! 


Write-Hand-Man 


Desk Accessories for CP/M 
NEW! Now with automatic screen refresh! 


Suspend CP/M applications such as WordStar, dBase, and 
SuperCalc, with a single keystroke and look up phone 
numbers, edit a notepad, make appointments, view files and 
directories, communicate with other computers, and do 
simple arithmetic. Return to undisturbed application! All 
made possible by Write-Hand-Man. Ready to run after a 
simple terminal configuration! No installation required. 


Don’t be put down by 16 bit computer owners. Now any 
CP/M 2.2 machine can have the power of Sidekick. 


Bonus! User extendable! Add your own applications. 


$49.95 plus tax (California residents), shipping included! 
Volume and dealer discounts. 


Available on IBM 8 inch and Northstar 5 inch disks. Other 5 
inch formats available with a $5.00 handling charge. CP/M 2.2 
required; CP/M 3 not supported. 


COD or checks ok, no credit cards 
Poor Person Software 
3721 Starr King Circle 
Palo Alto, CA 94306 
tel 415-493-3735 
Write-Hand-Man trademark of Poor Person Software, CP/M trademark of Digital 


Research, Sidekick trademark of Borland International, dBase trademark of Ashton-Tate, WordStar 
trademark of Micropro, SuperCalc a trademark of Sorcim. 
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Fi or th C ompil er Lis ting (Listing continued, text begins on page 52) 


13 BEGIN FIN FC@ 7F AND DUP D = NOT 

14 WHILE BC! I+ 

1) REPEAT DROP FIN FC@ DROP C/L SWAP - 

16 THEN BEGIN DUP WHILE L- 20 BC! REPEAT DROP ; DECIMAL 


SCR #216 

1 ( TYPEFILENAME TINPUT ASCBLOCK) HEX 

2: TYPEFILENAME ( fa --- ) 
DUP FCB 1+ 8 TYPE .“ .° FCB 9 + 3 TYPE ; 


: TINPUT { --- 1) 00." ? " QUERY 1 TWORD CONVERT DROP DROP : 


: ASCBLOCK ( --- ) 

CR .“ DOS in file name” FIN FILENAME? FIN FOPEN 

9 IF CR FIN TYPEFILENAME ." can’t be opened.” BYE THEN 

10 CR ." Starting block # (DEC)" TINPUT ." Drive % (0,1)" TINPUT 
11 0 MAX 1 MIN IF DRI ELSE DRO THEN 

12 DUP CURBLOCK ! 0 BCOUNT ! BUFFER DROP 

13 BEGIN FIN FC@ DUP 1A = NOT WHILE LINE)BLOCK REPEAT DROP 

14 BEGIN BCOUNT @ 400 ( WHILE 20 BC! REPEAT 

15 UPDATE SAVE-BUFFERS FIN FCLOSE DROP 

16 CR.” Task complete." CR BYE ; DECIMAL 


SCR #217 

1 { TCOLD) HEX 

2 

3: TCOLD ( --- ) 0 EPRINT ! 

4 INIT-USER UP @ 6 + 30 CHOVE PAGE 

S TBUFL ’ FIRST ! TEM’ LIMIT ! T#BUFF ° BBUFF ! EMPTY-BUFFERS 
6 CR 1 DENSITY ! FIRST USE ! FIRST PREY ! 
7 DRO 40° C/L ! 

8 DECIMAL ASCBLOCK ; 

9 

10’ TCOLD CFA’ TCOLDCFA ! 

11 DECIMAL 


SCR #120 

1 ( Implementation specific constants for CP/M) HEX 

2 

5 INIT-FORTH 12 - CONSTANT FORTHORG ( Host origin) 

4 148 CONSTANT PATCHMAX ( end of patch area) 

5 110 CONSTANT TCOLD! ( address for patch for jump to cold) 

6 116 CONSTANT US ( address for patch for user#) 

7 118 CONSTANT LTIB ( address for patch for Terr-in-buffer) 
8 CD CONSTANT DOESJMP © ( first byte of run-tiae create-does)) 
9 5 CONSTANT DJMPLEN (4 of bytes for run-time c-d jap) 
10 DECIMAL 


SCR #121 

1 ( MS-DOS Ieplegentation specific addresses) HEX 

2 

3 INIT-FORTH 1B - ° FORTHORG | 

4 151’ PATCHHAX |! ( MS-DOS) 
5 119 ’ TCOLDI ! ( 4S-DOS) 


82 


: 4 a on ss = — 


6 LIF ’ Ug! ( 
7-¥2k.? 2B ( 
8 88 ° DOESIMP ! ( 
95  '° DJMPLEN ! ( 
10 DECIMAL 

1} 

12 

13 

14 

15 

16 


SCR #122 

1 { VARIABLES) HEX 

2 

3 VARIABLE TVRAMOFF 0 TYRANOFF 
4 VARIABLE DOCODE G DOCODE 
S VARIABLE VERBSE 0 VERBSE 
6 VARIABLE TVERBS# 06 TVERBS# 
7 VARTABLE DOWN 0 DOWN 
8 VARIABLE FIXLINK? 0 FIXLINK? 
9 VARIABLE !FIX 0 !FIX 
10 VARIABLE DOVAR? 0 DOVAR? 
1] DECIMAL 
12 
13 
14 
1S 
16 


Se eee ee ee elt ee 


SCR #123 

1 ( CONSTANTS see Examples and Glossary) HEX 

2 0 CONSTANT HAPFILE ( These constants are loaded by the user) 
5 0 CONSTANT T8BUFF 

4 0 CONSTANT TVRAK 

3 0 CONSTANT TEM 

6 0 CONSTANT TBUFI 

7 0 CONSTANT TRO 

8 0 CONSTANT TSPO 

9 Q CONSTANT TARGORG 
10 0 CONSTANT TCOLDCFA 
ll 
12 0 CONSTANT ROOF 

13 0 CONSTANT NLIST 
14 0 CONSTANT TLIST 

15 0 CONSTANT HEADERS 
16 0 CONSTANT TREETAGCFA DECIMAL 


( These constants are initialized by TARGET) 


SCR #124 
1 ( CONSTANTS for detection of special cases) 
2’ (+LOOP) CFA CONSTANT (+LOOP)CFA 
5 bi _ CFA CONSTANT LITCFA 
oa h9 CFA CONSTANT (.")CFA 
5’ (ABORT") CFA CONSTANT (ABORT")CFA 
6° Exit CFA CONSTANT EXITCFA 
7’ OBRANCH CFA CONSTANT OBRANCHCFA 
8’ (LOOP) CFA CONSTANT (LOOP)CFA 

” (/LOOP) CFA CONSTANT (/LOOP)CFA 

" (;CODE) CFA CONSTANT (;CODE)CFA 

” BRANCH CFA CONSTANT BRANCHCFA 

ay CFA @ CONSTANT DOCOL 

> $P0 CFA @ CONSTANT DOUSE 

0 CFA @ CONSTANT DOCON 

" PREV CFA ® CONSTANT DOVAR 

’ FORTH CFA @ CONSTANT DOYOC 


9 
10 
il 
12 
13 
14 
i) 
16 
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SCR #125 SCR #127 











1 ( STRING PUT$ from A.Winfield “The Complete FORTH” Sigma 1983) 1 ( EAKER CASE STATEMENT FROM CEE 9/80 FORTH DIMENSIONS II/3 P 37) 
2 HEX 2 
3: STRING (nn --- ) 3: CASE COMP CSP @ SPa@ CSP ! 4 ; IMMEDIATE 
4 CREATE DUP C, 0 C, ALLOT 4 
5 DOES) 2+ DUP I- Cé ; 5S - OF 4 ?PAIRS COMPILE OVER COMPILE - COMPILE OBRANCH HERE 0 
6 6 , COMPILE DROP 5 ; IMMEDIATE 
ang. Canon 7 | 
8 DROP I- 8 : ENDOF 5 ?PAIRS COMPILE BRANCH HERE 0 , SWAP 2 
§ DUP I- Cé 3 [COMPILE] THEN 4 ; IMMEDIATE 
10 24 WORD DROP 10 
11 HERE Cé@ <¢ 11 : ENDCASE 4 ?PAIRS COMPILE DROP BEGIN SP@ CSP @ = O- 
12 IF ." String too big” DROP QUIT THEN 12 WHILE 2 [COMPILE] THEN REPEAT CSP ! ; IMMEDIATE 
13 HERE DUP C@ It 13 
14 ROT SWAP CHOVE ; 14: ASCII BL WORD 1+ C@ [COMPILE] LITERAL ; IMMEDIATE 
15 DECIMAL 15 
16 16 
SCR #126 SCR #128 
| ( TVRALLOT TVARIABLE TPICK TROLL ;S FLIP) HEX 1 ( F$ M$ FILE IMG TARG MAP DHA FCB LB) HEX 
2 
3: TYRALLOT ( n --- ) TYRAMOFF +! ; 3B STRING F$ F$ PUT$ TARGET IMPS 
: 4 3 STRING M$ M$ PUT$ MAPS 
5 : TVARIABLE ( --- ) ITVRAMOFF DUP @ 2 ROT +! TYRAM + CONSTANT ; 5 
6 6 : FILE ( --- ) CREATE HERE A2 ALLOT A2 0 FILL ; 
7: TPICK (nl --- n2) 2% SPO + @; 7 
8 8 FILE IMG 
9: TROLL ( n--- ) Lt DUP TPICK SWAP 2% SP@ + 9 FILE TARG 
10 BEGIN DUP 2- @ OVER ! 2- SP@ OVER UC NOT UNTIL DDROP ; 10 FILE MAP 
Ll 1] 
ieee. ) 0 ’STREAM ' ; DECIMAL 12: OMA ( fa---a) It; 
13 Peet fae ae) Oe 
1435 HEX | . 14: L8 (n--- b) FF AND ; 
ie > Fae ay 15 DECIMAL 
16 0 100 U/MOD SWAP 100 * + ; DECIMAL 16 
(Continued on next page) 
eee Oil THESE GIANTS KNOW Dow Chemical 
anadian Government Veterans Administration 
General Motors THE SECRET OF eset Packard 
American Airines PROGRAMMING PRODUCTIVITY . . ciieaatin Dane 
Eastern Airlines FOR $59 95 BE A GI ANT! Johnson’s Wax 
Department of Defense t a F Exxon 


COMP COMPUTING STANDARD MUMPS WILL AT LEAST DOUBLE YOUR PRODUCTIVITY 





CCSM Offers These Advantges: ‘ 
SPECIAL OFFER 


Full Screen Editor 

Virtual Memory (Routines & Variables May Be “Cookbook of MUMPS & 
As Large As A Disk) Tee Pere 

Multi-User - Up to 12 PAI eC eee ae 

B-Tree File Structure Techniques & Routines 

8087 and BCD Support Included TK ae ee TKD 


Meets or Exceeds 1984 ANSI Standards Offer Ends 12/31/85 
Transportable From Micro to Mini to Mainframe 


Be Le Se ean te eiee Scie Sadawelea® <p dice S644 aan SS om oe ee RE ee et ee eR Sea, ee 


CCSM 1- (800) 257-8052 Continental US. 


ns Qty. *When Purchased With CCSM 
CCSM Single User System $59.95 Guidance Software Inc. 


Graphics Add-On 49.95 P.O. Box 5362 


| 
eS “oe 94.95* Kingwood, TX 77325 
| 450.00 (713) 360-3561 


Ce eek ee ee. as. 
saa Bette oer inp = 
an ee ae a = 

ym 
_ 


°- "4H 





a 





Multi-User System 


(Add $2.00 to each order for shipping) 
TOTAL AMOUNT DUE 


NAME je a 





COMPANY AAA O Check Enclosed 

Ol Credit Card 
O Amex 0 Visa 0 MC 
Credit Card Number 


SreRET Ge Pe 
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es 
MS—DOS & PC—DOS are registered trademarks of Microsoft | 

Corp. and IBM Corp. respectively 


Exp. Date 





PHONE —— 
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F or th Compiler Lis ting (Listing continued, text begins on page 52) 


SCR #129 

1 ( T’STREAM TWORD FILENAME?) HEX 
2: T'STREAM ( --- a) TIB@ )IN@ +; 
J 
4: TWORD ( b --- a) T’STREAH SWAP ENCLOSE DDUP ) 
3 IF DDROP DDROP O HERE ! 
6 ELSE )IN +! OVER - DUP )R HERE Ci + HERE 1# R) 1+ CMOVE 
7 THEN HERE ; 
8 


9 : FILENAME? ( fa --- ) 

i6:-.* 2 > QUERY 

1] TIB @ 1+ C® ASCII : = ( default or select?) 
12 IF 3A TWORD 1+ Cé 40 - O MAX OF HIN OVER FCB C! ( select disk) 
13 ELSE 0 OVER FCB C! THEN ( default disk) 
14 DUP FCB OC + 15 O FILL DUP FCB 1+ OB BLANK ( clear FCB) 
15 2E TWORD COUNT 8 MIN 3 IPICK FCB 1+ SWAP CMOVE ( load FCB) 
16 BL TWORD COUNT 3 HIN 3 TROLL FCB 9 + SWAP CHOVE ; DECIMAL 


SCR #130 
1 ( ISFF FSEARCH FNSEARCH FDELETE FCREATE) HEX 


Ro 


: ISFF ( f --- f-) FR = IF FRFF ELSE 0 THEN : 


: ISZERO ( f --- f ) O= IF 0 ELSE FFFF THEN : 


3 
4 
5 
6 
/ : FSEARCH ( fa --- f ) FCB IL SWAP SYSCALL LB ISFF : 
8 
9 : FNSEARCH { fa --- f ) FCB 12 SWAP SYSCALL LB ISEF : 
0 
l 


: FDELETE ( fa --- f ) FCB 13 SWAP SYSCALL LB ISFF 


THE SYMBOLIC SINE QUA NON 
| | he) 


Cybermetrics UN XLISP-86 (tm) Features: 


e | Megabyte address space. 


¢ LAMBDA, NLAMBDA, MACRO with 
displacement. 


© CATCH, THROW, ERRSET, & ERR. 
¢ SAVE/RESTORE virtual images to/from disk. 
e 2OPTIONAL, &REST, and &AUX parameters. 


e Tree-structured object list, functional 
directories. 





¢ Lisp utilities with source, including pretty- 
printer, structure editor, debugging functions, 


e Works with any text editor through exec 
function. 


e Extensive manual — written in ENGLISH 


¢ Requires 320K memory and runs under 
MSDOS and PCDOS versions 2.0 and later. 


TECHNICAL 
(408) 725-1344 


$49.00 


ADD $3.00 FOR 
SHIPPING & HANDLING 





automata design assoc. 


1570 ARRAN WAY 
DRESHER, PA 19025 VISA 


TO ORDER CALL (215) 646-4894 USE IT FOR 30 DAYS 


12 

LS: FOREATE 4 Ta.->= "9 

14 DUP 81 0 FILL FCB 1@ SWAP SYSCALL LB ISFF ; 
13 DECIMAL 

16 


SCR #131 
1 { FOPEN FCLOSE SETDMA FREAD FWRITE) HEX 


= FOPER t fa2--- f 
DUP 80 SWAP C! FCB F SWAP SYSCALL LB ISFF ; 


: FCLOSE ( fa --- fF ) 
FCB 10 SWAP SYSCALL L8 ISFF : 


oo NN Oo ON a WG PO 


9: SETDMA ( fa --- ) 
10 DMA 1A SWAP SYSCALL DROP ; 


12--s' FREAD. Cf: --+¢ } 
13 FCB 14 SWAP SYSCALL LB ISZERO 


{3 FRE {fa t-=f ) 
16 FCB 15 SWAP SYSCALL LB ISZERO ; DECIMAL 


SCR #132 
1 ( SETDMA FREAD FWRITE FILE@ FILE! FILEEOF) HEX 
2 


Sos FHLE®: | fa F} 
4 DUP SETDHA DUP FREAD IF FFFF FF ELSE 0 0 THEN ROT C! - 


1 


THE fifth generation language 
6} 8 6) € 


Implementing the full Edinburgh Syntax as 
described by Clocksin and Mellish. 


Recognized by Japan as providing unparalleled 
opportunity for artificial intelligence. 


Applications: 


e The highest level of a hierarchial robotic 
control system. 


¢ Machine recognition of natural language. 
e Expert systems and knowledge engineering. 


Optional: 
e Virtual memory 
e Special libraries 
e Language extensions 
e Large model 


Requires 192K memory and runs under MSDOS 
and PCDOS versions 2.0 and later. 


TECHNICAL 


(215) 646-4894 educational package 


$29.95 


other versions S5O-S5O0O 


MASTERCARD 





Circle no. 12 on reader service card. 
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5 

6: FILE! ( fa --- f ) DUP Cé 

7 IF DUP SETDMA DUP FWRITE SWAP 81 O FILL ELSE DROP O THEN ; 
8 


OPUS ¢ fa > EY 
10 C@ FF = IF FFFF ELSE 0 THEN ; 


12 : FILECREATE ( fa --- f ) 
13 DUP FSEARCH NOT IF DUP FDELETE DROP THEN FCREATE ; 


14 DECIMAL 

1S 

16 

SCR #153 
1 ( FC@ FC! IMG TARG MAP F$ M$) HEX 
2 
Stier 5b 


4 DUP C@ 80 = IF DUP FILE@ DROP THEN 
5 DUP Cé 1+ DUP 3 TPICK C! + Cé ; 

6 

Pe bot ie eg 

8 DUP Cé 30 = IF DUP FILE! DROP THEN 
9 DUP Cé 1+ DUP 3 TPICK C! + C! ; 

10 DECIMAL 

1] 

12 

13 

14 

1) 

Lé 























WorkArea 


A Text Management 
& Presentation System 
for Computer Product Vendors 


¢ WorkArea incorporates your word-processor (or the full function 
editor provided) into an object-oriented data-base containing 
text, numbers, strings, vectors, calculations, scripts, windows, 
interrogatives and more. 





« WorkArea can be used as an authoring system, for building 
minor expert or knowledge-base systems. 


« WorkArea can build on-line and interactive — 

— product descriptions: answer specific questions; 

— tutorials & user-guides: get users started; 

— diagnostics: assist users in isolating problems; 

— documentation (on-line or printed): with user-guide, 
reference, tutorial and help-system consolidated into a 
co-ordinated package. 

e WorkArea is available in read-only versions. 


« WorkArea runs on the IBM PC and compatibles with 256 RAM, 

DOS 2.xx, floppy or fixed-disk, monochrome or color monitor. 
Complete WorkArea package: $275 

Demo and documentation package: $30 


(site license or special orders possible) 


DMCQ 


ln ene er nite 
Systems Consulting and Software Development 


To order: P.O. Box 602 (707) 743-1907 
Ukiah, CA 95482 


Senda check or money order. Sorry, we do NOT accept phone, credit 
card or COD orders. Please supply a street address for UPS delivery. 


Circle no. 21 on reader service card. 
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SCR #134 
1 ( SPACEFILE SPACESFILE TYPEFILE U.RFILE) HEX 
: SPACEFILE ( fa --- ) 20 SWAP FC! ; 


2 

3 

4: SPACESFILE (nn fa --- ) SWAP O HAX ?DUP 

5 IF 0 DO DUP SPACEFILE LOOP THEN DROP ; 

6 

7: CRFILE ( fa --- ) D OVER FC! A SWAP FC! ; 

8 
9: TYPEFILE ( an fa --- ) ROT ROT DUP 0) 

10 IF OVER + SWAP DO I C@ 7F AND OVER FC! 1 /LOOP 
11 €LSE DDROP THEN DROP ; 


13: URFILE ( @r fa --- ) ROT ROT 

14 0 SWAP )R SWAP OVER DUP Dt+- 

15 (8 #S ROT SIGN #) R) OVER - 

16 4 ROLL DUP ROT SWAP SPACESFILE TYPEFILE ; DECIMAL 


SCR #135 
| ( ID.FILE MAXNFA) HEX 


Rh 


3: ID.FILE ( nfa fa --- ) SWAP COUNT LF AND ROT TYPEFILE ; 
4 

S : MAXNFA ( nfal a nfa2 --- nfa3 a) [ SMUDGE | 

6 BEGIN DUP DUP O= SWAP @ AOS] = OR NOT 

7 WHILE DUP PFA DUP CFA @ DOVOC = SWAP 4 + @ O= NOT AND 
§ IF ROT ROT 3 PICK PFA 2+ @ MAXNFA ROT THEN 

9 OVER OVER UC NOT 

0 IF ROT DDUP U« NOT IF DROP DUP THEN ROT ROT THEN 

| PFA 4 - @ 


(Continued on next page) 
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The ForthCard provides the ability to develop Forth code us- 
ing a single board, including on-ceard E/EEPROM programming. 
Operating as a stand alone computer or as an STD bus CPU, 
this card is perfect for projects that require a simple dedicated 
SBC, while allowing for memory and I/O expansion. Forth pro- 
grams can be entered directly via CRT or downloaded from your 
PC’s serial port, blown into optional non-volatile RAM or EEPROM, 
and auto-executed on power-up 

The evaluation unit is available for as little as $299. OEM Ver- 
sions of the card may be purchased for $479 each. (Qty. 10) 

The ForthBox is a complete STD bus oriented system including 
the ForthCard, Disk Controller, Disk Drive(s). STD card cage 
Cabinet and Power Supply 


CALL TODAY FOR COMPLETE INFORMATION 


Hirech Equipment Corporation 
9560 Black Mountain Road, San Diego, CA 92126 


FOR IMMEDIATE ACTION CALL 
| VISA 
619-566-1892 Gorges) | VIS: 


Circle no. 23 on reader service card. 
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F or th Compiler Lis ting (Listing continued, text begins on page 52) 


12 REPEAT DROP [ SMUDGE ] - 4 DUP @ 

13 DECIMAL 5 CASE LITCFA OF LITCFA )TTAG 2+ 0 ENDOF 

14 6 (.")CFA OF (.")CFA )ITAG 2+ COUNT + 2- 0 ENDOF 
15 7 (ABORT")CFA OF (ABORT")CFA )TTAG 2+ COUNT + 2- 0 ENDOF 
16 3 OBRANCHCFA OF OBRANCHCFA )TTAG 2+ 0 ENDOF 

9 BRANCHCFA OF BRANCHCFA )TTAG 2+ 0 ENDOF 
10 (LOOP)CFA OF (LOOP)CFA )TTAG 2+ 0 ENDOF 

SCR #136 i (/LOOP)CFA OF (/LOOP)CFA )TTAG 2+ 0 ENDOF 

1 ( NFTAG VERBTAG SFLAG )TTAG) HEX 12 (+LOOP)CFA OF (+LOOP)CFA )ITAG (LOOP)CFA )TTAG 2+ 0 ENDOF 
< 13. ENDCASE - 

3: NFTAG ( nfa --- ) 14 

4 DUP Ce 20 OR SWAP C! : 15 

; 16 

6 : VERBTAG ( cfa --- ) 

7 DUP 2- @ (:CODE)CFA = 

8 IF 0 SWAP [COMPILE] FORTH CONTEXT @ &@ MAXNFA DROP SCR #138 

9 ELSE 2+ NFA 1 ( CREATE-DOES)) HEX 

10 THEN NFTAG ; 2 

ll 3: CREATE-DOES) ( cfa --- ) 

12: SFLAG ( f --- f ) SWAP I- SWAP ; 4 @ DUP VERBTAG DUP C@ DOESJHP - 

13 5 IF ’ DOES) CFA VERBTAG DJMPLEN 2- + 

14: )TTAG ( --- ) TREETAGCFA EXECUTE - 6 BEGIN 2+ DUP @ EXITCFA = NOT 

15 DECIMAL 7 WHILE PFSKIPS 2DUP IF DUP @ )TTAG THEN 

16 8 REPEAT 

9 ELSE DUP DUP HEX CRU. 2+ NFA ID. 
10 . ~--Code verb assumed.” CR DECIMAL 
SCR #157 If THEN DROP - 
2 13 


3 SSPFSKEPS (al. =~ al 02°05) 


DATESTAMPER*" has the answers 


When did we 
L—_ print that letter? 








ee te Te ST ees: TESTO 
(rat BERT ES: 16:38-24 bec’ list been updated? 


>. oa SF 


nd ee) ee AT ae 16527-36 Jz B9235-22 Jan 


Beebe 2 ae a 10 Which is the 
latest version? 


A ee ee aa ita be rs 


DateStamper™ keeps your CP/M computer up-to-date! 
¢ avoid erasing the wrong file ° keep dated tax log of computer use 
¢ back-up files by date and time ¢ simplify disk housekeeping chores 


OPERATION: DateStamper extends CP/M 2.2 to automatically record date and time a file is created, read or 
modified. DateStamper reads the exact time from the real-time clock, if you have one; otherwise, it records the order in 
which you use files. Disks prepared for datestamping are fully compatible with standard CP/M. 
INSTALLATION: Default (relative-clock) mode is automatic. Configurable for any real-time clock, with pre- 
assembled code supplied for all popular models. Loads automatically at power-on. 

UTILITIES: Enhanced SuperDirectory * Powerful, all-function DATSWEEP file-management program with date and 
time tagging ¢ Installation and configuration utilities 

PERFORMANCE: Automatic. Efficient. Versatile. Compatible. 


Requires CP/M 2.2. Uses less than 1K memory. Real-time clock is optional. 
When ordering please specify format 


8” SSSD, Kaypro, Osborne Formats ........... $49 . . . 
Bop Ra Fo ahs ais 56 TPN ares Write or call for further information 
shipping-and handing 3 en $3 


California residents add 6% sales tax 
MasterCard and Visa accepted (Plu Perfect Systems) 


Specialized versions of this and other software available for the Kaypro. - 
CP/M is a registered trademark of Digital Research, Inc. Bn TS» SOV EP Beane 734, O68 4452 
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14 
15 
16 


SCR #139 

1 ( TREETAG) HEX 

2: TREETAG ( cfa--- ) [ SMUDGE ] 
3 DUP 2+ NFA C@ 20 AND NOT 
4 IF 0 SWAP DUP 2+ DOCODE ! DUP YERBTAG DUP @ 
5 CASE DOCODE @ OF SFLAG ENDOF 
6 DOCOL OF 
] BEGIN 2+ DUP @ DUP EXITCFA = SWAP (;CODE)CFA = OR NOT 
8 WHILE PFSKIPS ?DUP IF DUP @ TREETAG THEN 


9 REPEAT SFLAG ENDOF 
10 DOUSE OF DUP 2+ @ DUP 14 ) SWAP 36 ( AND 
Il IF DUP EXECUTE @ TREETAG THEN SFLAG ENDOF 


12 DOVAR OF SFLAG ENDOF 

13 DOCON OF SFLAG ENDOF 

14 ENDCASE SWAP NOT 

15 “IF DUP CREATE-DOES) THEN 

16 THEN DROP { SMUDGE | ; DECIMAL 


SCR #140 

1 ( TFIX;CODE X TFIXNUL APPTAG) HEX 

2: TFIX;CODE ( --- ) 

3 ' CREATE CFA VERBIAG ° CONSTANT CFA VERBTAG 

4 ' : OFA VERBTAG ’ USER CFA YERBTAG ° EXIT CFA VERBTAG 
5 HEADERS IF ’ BYE CFA TREETAG THEN ; 
6 

7 
8 


: XR) DROP ; 
: TFIXNULL ( --- ) 


9 ' ¥ CFA TREETAG S80E0 ’ X NFA! ; 

10 

11 : APPTAG ( --- ) CR CR ." Start tagging. 
12 TFIX;CODE TCOLDCFA TREETAG 

13 HEADERS ?DUP IF TREETAG TFIXNULL THEN 
14." Finished tagging.” ; DECIMAL 

15 

16’ TREETAG CFA ’ TREETAGCFA ! 


( patch for null) 


SCR #14! 
1 ( HITKEY DDRIVE LOADFCB IMAGESAVE) HEX 


2 

$3: HITKEY (--- ) ." and hit any key. --- “ KEY DROP ; 
4 

5 : DDRIVE ( --- ) 

6 CRCR ." Insert DOS disk in default drive," HITKEY ; 

} 

8 : LOADFCB ( an fcba --- ) 

9 DUP 21 0 FILL 1+ SWAP CHOVE ; 


11 : IMAGESAVE ( --- ) DDRIVE 

12 F$ IMG FCB LOADFCB 

13° IMG FILECREATE DROP 

14 HERE FORTHORG DO I 1- SETDMA IMG FWRITE DROP 80 /LOOP 
15 IMG FCLOSE DROP CR CR .“ Step 1 complete.” DDRIVE BYE ; 
16 DECIMAL 


SCR #142 

1 { FRAMEIN RAZE) HEX 

2 

3: FRAMEIN ( --- ) (Continued on next page) 

























The Journal of Forth 
Application and Research 


The aim of the Journal is to provide a reliable source of state of 
the art techniques and applications of Forth to scientific and 
industrial problems. The Journal's editorial review board is drawn 
from the foremost workers in Forth in the U.S., Europe and Canada. 
Past issues had in-depth coverage of such topics as Robotics, Data 
Structures, Forth Computers, Real-Time Systems, and Extended 
Address Computing. The Journal is open to all new work in Forth 
as well as the entire range of threaded interpretive languages and 
Forth-like systems. 


The Journal is beginning its third year of publication. Published 
quarterly, the Journal contains applications and techniques papers, 
technical notes, review papers, algorithms, book reviews, and 
conference abstracts. 















1985 Rochester Forth Conference Proceedings 
The Proceedings of the 1985 Rochester Forth Conference will 
appear as a Special Issue of Volume 3 of the Journal. The 
conference had a theme of software management and engineering 
and how to improve software productivity. Invited papers discuss 
a space shuttle experiment using Forth, the automation of an airport 
with Forth, and Forth in the development of MAGIC/L. (Also available 
as a single issue for $20.; outside North America, $25.) 


Subscriptions Volume 3, 1985 — Corporations and Institutions, 
$100.: Individual subscribers, $40. Please add $20 for airmail 
delivery outside N. America, and make checks in US funds from 
a US bank or international money order, payable to the Journal of 
Forth Application and Research, PO. Box 27686, Rochester, NY 
14627. 
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VANCE info systems is pleased to announce 
THE MOST COMPLETE C FUNCTION LIBRARY AVAILABLE TO DATE! 


» lib 
C FUNCTION LIBRARY 


“C lib” is the most functional library available for 
software written in C, providing over 200 routines, 
extending the capabilities of C on the IBM PC. The library 
is available under the DeSmet (C Ware) C88 compiler, will 
soon be available in MicroSoft C, Lattice C and ofher C 
compilers; and runs using MS Dos 1.1 and later versions. 




























Featuring: 
e Unix/Xenix Compatibility 
e Moth Functions 


e Windowing Library 

e String Functions 

e Asychronous Buffered, Interrupt-driven Communications 
e 8087/MicroSoft Floating Point conversions 

e And much more 


Documentation is offered in an easy to use printed manual 
or on disk for personal printing needs, complete with 
programming examples and follow-up demo programs. 


The “'C lib” C FUNCTION LIBRARY is offered at only $195 
less than most available today. 


For further information on “'C lib” please call or write us. 


VANCE info systems 


2818 clay street « san francisco, california 94115 * (415)922-6539 


IBM 1s a trademark of International Business Machines Corp C88 is a 
trademark of Computer Innovations, Inc. Lattice is a trademark of Lattice Inc 
xXenix,. MicroSoft C and MS DOS are tragemerks of MicroSoft Inc. Unix ts a 

trademork of Bell Labs, Inc. “C lib” is a trademark of VANCE info systems. 
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Fi Or th Compiler Lis ting (Listing continued, text begins on page 52) 


SP@ 2- 2- ' ROOF ! 
VERBSE @ 2+ 0 DO 0 LOOP 

Sp@ ’ NLIST ! 

HERE ROOF 2+ ! FFFF NLIST ! 

TVERBS# @ 3 + 2 * 0 DO O LOOP 

9 Sp@' TLIST ! 

10 FORTHORG DUP TLIST ! 

11 TARGORG - TLIST 2+ | 

12 HERE NLIST 8 - ! 

13 FFFF NLIST 4 - | ; 

14 

15 : RAZE ( --- ) 

16 VERBS# @ 2+ TVERBS# @ 3 + 2 # + 0 DO DROP LOOP ; DECIMAL 


ao ~ Oo Gn & 


SCR #145 
1 ( COUNTYERBS NFALISTFILL) HEX 


: COUNTVERBS ( nfa --- ) [ SMUDGE ] 
BEGIN DUP DUP O- SWAP @ AQ8] = OR NOT 
WHILE DUP PFA DUP CFA @ DOVOC = SWAP 4 + @ O= NOT AND 
IF DUP PFA 2+ @ COUNTVERBS THEN 
DUP C@ 20 AND IF 1 TYERBS# +! THEN PFA 4 - @ 1 VERBSE +! 
REPEAT DROP { SMUDGE ] ; 


aon oO CO & GW PhO 


1G: NFALISTFILL ( nfa--- ) { SMUDGE ] 

11 BEGIN DUP DUP O: SWAP @ AOS] = OR NOT 

12 WHILE DUP PFA DUP CFA @ DOVOC = SWAP 4 + @ O= NOT AND 
13 IF DUP PFA 2+ @ NFALISTFILL THEN 


14 DUP PFA 4 - @ SWAP DOWN @ ! -2 DOWN +! 
15 REPEAT DROP ( SMUDGE | ; 
16 DECIMAL 


SCR #144 

1 ( WINDOWTOP FRAMEBOTTOM) HEX 
2: WINDOWTOP ( al --- a2 ) 
3 BEGIN DUP DUP @ SWAP 2- @ UC NOT 
4 WHILE 2- 
o REPEAT 2: 
6 
] 
8 


: FRAMEBOTTOM ( al n --- a2 ) SWAP 
BEGIN DUP @ 3 PICK UC NOT 
9 WHILE 2- 
10 REPEAT SWAP DROP ; 
1] 
12 : WINDOWBOTTOM ( al a2 --- a3 ) @ OVER 
13 BEGIN DUP @ DUP 4 PICK U< NOT SWAP FFFF = NOT AND 
14 WHILE 2- 
15 REPEAT SWAP DROP SWAP WINDOWTOP DDUP UK 
lo IF SWAP THEN DROP ; DECIMAL 


SCR #145 
1 ( OPENMOVE WINDOWSORT) HEX 

2 

3: OPENMOVE ( al a2 a3 --- ) 

4 DUP DUP 2+ SWAP 5 PICK SWAP - DUP )R PREV @ SWAP BMOVE 
5 3 PICK 2+ SWAP 2+ 3 PICK 5 ROLL - BMOVE 








WINDOWS FOR C" 





Advanced screen management made easy 


For all popular C-compilers operating under PCDOS. Plus versions for XENIX & UNIX. 


Trademarks — Lattice Inc: UNIX. AT&T: XENIX, Microsoft 
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WINDOWS FOR C™ 
was ranked #1 by 


PC TECH JOURNAL 


(Review by William Hunt, July 1985) 


In comparison with five 
Windowing Utilities for C 
[Window Machine, (Lattice Windows), 
CRIOS, Building Blocks II and C-LIB}] 


WINDOWS FOR C came out as the winner. 


Overall Quality #1 
Display Speed #1 
Ease of Use #] 
Code Size #] 
Documentation #1 
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SS 





R@ - 2+ PREY @ SWAP R) BMOVE ; 


6 

/ 

8 : WINDOWSORT ( a --- ) 

9 BEGIN DUP WINDOWTOP DUP @ FFFF = NOT 
10 WHILE OVER OVER @ FRAMEBOTTON 

Il DDUP WINDOWBOTTOM OPENMOVE 

2 REPEAT DROP DROP FORTHORG NLIST ! ; 
13 DECIMAL 


SCR #146 
1 ( FINDTAG OFFSETS) HEX 


: FINDTAG ( al --- a2 ) 
BEGIN 2+ DUP @ Cé 20 AND UNTIL ; 


- OFFSETS ( --- ) CR CR.” Calculating offsets.° 

NLIST 2+ @ TLIST NLIST TVERBS# @ 0 

DO FINDTAG DUP )R @ HEADERS NOT IF PFA CFA THEN 
ROT - SWAP 4 + SWAP OVER 2- @ + OVER 

10 2+ | R@ @ HEADERS NOT JF PFA CFA THEN OVER ! 

l! R@ 2+ @ SWAP R) 

12 LOOP 

13 DROP DUP 2+ @ SWAP 6 + ! DROP 

14." Offsets calculated.” ; 

1S DECTHAL 

16 


SCR #147 
1 ( VERBSLIST FIXSMUDGE) HEX 
2 





i: VERBLISTS ( --- ) 0 VERBS# ! 0 TVERBS# ! 

& CR CR." Creating verb lists." 

5 [COMPILE] FORTH CONTEXT @ @ COUNTYERBS FRAHEIN 

6 ROOF DOWN ' CONTEXT @ @ NFALISTFILL 

7 1 BUFFER DROP .” Sorting.” ROOF WINDOWSORT 

8 DECIMAL CR CR VERBS# @ U. .* (DEC) Verbs in host Forth." 
9 CR TVERBS# @ U. .* (DEC) Verbs in target code.* 

10 OFFSETS ; 


12 : FIXSMUDGE ( --- ) 

13 TLIST 4 + TVERBS# @ 0 

14 DO DUP 1 4 # + @ HEADERS NOT IF 2+ NFA THEN 
15 DUP C@ DF AND SWAP C! 

16 LOOP DROP ; DECTHAL 


SCR #148 
1 ( NEWLINK TARGHAP DUMP/=) HEX 


2 

3: NEWLINK ( nfal --- nfa2 ) 
h-FLEST 2=2- 

5 BEGIN 2+ 2+ DDUP @ = UNTIL 

6 2- 2- @ SWAP DROP O FIXLINK? | ; 
7 
8 


: TARGMAP ( n nfa --- ) 
9 SWAP TARGORG + DUP 4 HEX U.R SPACE MAPFILE 
10 IF 4 MAP U.RFILE MAP SPACEFILE DUP MAP ID.FILE MAP CRFILE 
11 ELSE DROP THEN OUT @ SWAP ID. OUT @ - A + DECIMAL 
12 BEGIN I- DUP 0¢ NOT WHILE SPACE REPEAT DROP 
13 50 OUL @ F + ¢ IF CRO OUT ! THEN ; 


15 : DUMP/= (a --- ) CR 20 - 50 DUP TARG FILE! DROP 
16 TARG FCLOSE DROP IMG FCLOSE DROP FIXSHUDGE ABORT ; DECIMAL 





(Continued on next page) 





WINDOWS FOR DATA’ 


Featuring One-Step Data Entry °* 


Now you can code fast, powerful data 
entry windows, improve user 
convenience —- reduce input errors. 


All the power, convenience and 
flexibility of the #1 window utility for 
the IBM PC. Our WINDOWS FOR C™ 
combined with a professional window- 
based data entry system. 


Complete control over screen display 
and entry of data within a convenient 
flexible window environment. 


WINDOWS FOR C WINDOWS FOR DATA 


(Includes WINDOWS FOR C) 


PCDOS $ 195 $ 295 
PC/XENIX $ 395 $ 595 
UNIX CALL CALL 


WINDOWS FOR DATA™ provides versatile, 
easy-to-use data entry functions that operate 
within windows. : 


CAPABILITIES INCLUDE: 


= Pop-up data entry windows 

# Multiple field types 

= Data validation functions 

= Field-specific & context-sensitive help 

= Lotus-style menu design 

# Single field entry option 

= Date, time and string utilities 

= Dynamic control of data-entry 
environment 


¢@ User input to data-structure variables 
without intervening code. 


Vermont 
Creative 
Software 


21 Elm Ave. 
Richford, VT 05476 
802-848-7738, ext. 31 


Full source available. Master Card & Visa accepted. Shipping $ 2,50. VT residents add 4% tax. 
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Fi or th Compiler Lis ting (Listing continued, text begins on page 52) 


SCR #149 

1 ( PATCHADD VAR) HEX 

2 

3: PATCHADD ( al --- a2 f ) DUP 

4 CASE TCOLD! OF TCOLDCFA 1 ENDOF 
5 INIT-USER OF TSPO 0 ENDOF 
6 U8 OF TRO 0 ENDOF 
7 LTIB OF TSPO 0 ENDOF 
8 UP OF TRO 0 ENDOF 
9 RPP OF TRO 0 ENDOF 
10 DUP OF DUP @ 1 ENDOF 
11 ENDCASE ROT DROP ; 


3 

4 

13: VAR ( a --- ) DOVAR? @ NOT OVER RPP = NOT AND 5 
14 IF CR .* Images not aatched at “ DUP HEX 4 U.R DECIMAL DUMP/- 6 IF I FIXLINK? @ = 

15 THEN PATCHADD DROP DUP FF AND TARG FC! FLIP FF AND TARG FC! : 7 

8 


16 DECIMAL 


Il BEGIN DDUP @ UC NOT 
12 WHILE 2+ 2 

13 REPEAT 2- @ - 

14 THEN ; 

15 DECIMAL 

16 


SCR #151 
1 { YERB)TARG) HEX 


fh 


: VERB)TARG ( nfa --- ) 
DUP NEXTNFA SWAP 
DO IMG FC@ DUP I Cé = 


IF DF AND !FIX @ IF O FIXLINK? ! O !FIX ! THEN 
THEN TARG FC! 1 
9 ELSE IMG FC@ 100 * + 201 - 1 @ = 








10 IF I REPAIRADD DUP FF AND TARG FC! 
SCR #150 11 FLIP FF AND TARG FC! 2 
| ( NEXTNFA REPAIRADD) HEX 12 ELSE I VAR 2 

2 13 THEN 

3: WEXTNFA ( nfal --- nfa2 ) 14 THEN DOVAR? @ IF -1 DOVAR? +! THEN 

4 LIST 2- BEGIN 2+ DUP @ U( UNTIL @ SWAP DROP 15 /LOOP ; 

5 16 DECIMAL 

6: REPAIRADD ( al --- a2 ) 

7 DUP @ DOVAR = IF 2 DOVAR? ! THEN 

8 DUP PATCHMAX ( IF PATCHADD ELSE @ 1 THEN SCR $152 

9 IF FIXLINK? & 2DUP IF SWAP DROP NEWLINK THEN | ( DISCARD RELUCATE) HEX 

10 TLIST 2 

3: DISCARD ( n --- ) 
LANGUAGE FEATURES CODE OPTIONS LIBRARY FEATURES: 
~ Full K & R standard syntax ~© Memory models up to ~K G R Standard 
~ enum, void, unsi?ned char, 1M Byte of Code & Data I/O supported 
unsigned long, supported ~ 8087/80186/80286 support ~ DOS 2.0 & 3.0 interfaces 
~ Structure assi?nment ~ In-line assembler using, ~ Transcendental 
~ Non-unique structure C symbols math library 
members ~ ROMable code ~IBM ROM BIOS interface 
~ Full Lint checking, included supported 
: . ~ Library source code 
Fast execution speed: Sieve of ictal sa 


Only $450. an 


(617) 641-2379 gua 


VISA 








WiiZARD 
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Eratosthenes 6 seconds with 
2 register variables on a PC 


VAX/VMS, UNIX Cross- 


compilers Available 








SVSTEMS SOfTWARE INC. 
It WILLOW COURT, ARLINGLON, Ma 02174 
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4 DUP IF IMG SWAP O DO DUP FC® DROP LOOP DROP THEN ; SCR #154 
5 1 ( RELOCATENH) HEX 
6 : RELOCATE ( --- n ) 0 DOVAR? ! 9 
7 0 OUT ! O IFIX ! O FIXLINK? ! 3: RELOCATENH ( --- n ) 
8 CR CR TARGORG 4 HEX U.R ." HEX (target origin)” CR CR 4 0 OUT ! 0 FIXLINK? ! 0 DOVAR? ! 
9 HMAPFILE IF TARGORG 4 HAP U-RFILE HAP CRFILE THEN 5 CR CR TARGORG 4 HEX U.R ." HEX (target origin)" CR CR 
10 FORTHORG 0 NLIST 3 - TLIST 6 MAPFILE IF TARGORG 4 MAP U.RFILE MAP CRFILE THEN 
11 DO I TLIST = NOT IF DUP I @ TARGHAP I @ FIXLINK? ! THEN 7 FORTHORG 0 NLIST 8 - TLIST 
12 [@{ ’ ! NFA J LITERAL = IF 1 FIX ! THEN 8 DO I TLIST = NOT IF DUP I @ 2+ NFA TARGHAP THEN 
13 SWAP I @ SWAP - DISCARD 9 SWAP 1 @ SWAP - DISCARD 
14 [ & VERB)TARG I @ DUP NEXTNFA DUP ROT - ROT + 4 10 1 @ VERB) TARGNH 
15 /LOOP SWAP DROP DECIMAL ; ll [ @ DUP NEXTNFA 
16 DECIMAL 12 DUP ROT - ROT + 4 
13 /LOOP SWAP DROP DECIMAL ; 
14 DECIMAL 
15 
SCR #153 2 
1 ( VERB) TARGNH) HEX 
2 
3: VERB)TARGNH ({ cfa --- ) SCR #155 
4 DUP NEXTNFA SWAP | ( SETUPDOS CLEANUPDOS) HEX 
5 DO IMG FC@ DUP 1 Cé = 2 
6 IF TARG FC! 1 3: SETUPDOS ( --- ) 
7 ~— ELSE IMG FC@ 100 * + 20) - 1 &= 4 DDRIVE F$ ING FCB LOADFCB 
8 IF I REPAIRADD DUP FF AND TARG FC! 5 8EGIN IMG FSEARCH 
| 9 FLIP FF AND TARG FC! 2 6 WHILE CR .* TARGET.THP not found on default drive” DDRIVE 
10 ELSE [ VAR 2 7 REPEAT ING FOPEN DROP 
ll THEN 8 CRCR." Target code filename” 
12 THEN DOVAR? @ IF -1 DOVAR? +! THEN 9 TARG FILENAME? TARG FILECREATE DROP MAPFILE 
| 13 /LOOP ; 10 IF TARG FCB MAP FCB 21 CHOVE 
14 DECIMAL ll H$ MAP FCB 9 + SWAP CHOVE MAP FILECREATE DROP 
15 12 THEN ; 
16 
| (Continued on next page) 
I 
r @ File Edit Aux 


dBASE.com 


Now CP/M programs the MACINTOSH way! 


The available library of time-tested CP/M-80 programsisso 
vast that almost all popular computers, including IBMs 
and Apples, have been modified so they can run them. 


Now these same programs run the Macintosh way. Easily. 
Without expensive or complicated software. Without hard- 
ware changes. With C.P.Mac. 


With C.P.Mac you can open and start CP/M programs the 
same ways you open paintings or other Macintosh 
documents. Graphic controls and cues will help you while 


they are running — including a continuous display of disk 
availability! And youcanmakecopies of your CP/M files for 
other Macintosh programs, or vice versa. 


C.P.Mac works great with just one disk drive. It also works 
great with up to three, including hard disks and RAM disks. 


8080 emulation with about 42k TPA on a 128k Macintosh. Z80 emulation with 63k TPA ona 512k Macintosh or 
XL. CP/M 2.2 BDOS and BIOS calls. LST and PUN output to the printer, RDR and CON input from the keyboard. 
and CON outputs to the C.P.Mac window. ADM-3A emulation with reverse video and line insert/delete. 
Macintosh is a trademark licensed to Apple Computer, Inc. CP/M isa registered trademark of Digital Research, 
Inc. C.P.Mac is a trademark of Logique. 


e Choose from countless entertainment, business, and 
educational programs. 


e Special-purpose programs for accounting, agriculture, 
architecture, construction, legal, medical/dental, real 
estate, retail, wholesale, and a host of other professions. 


e Move your current CP/M activities to the Macintosh with- 
out skipping a beat. Spreadsheets, data bases, whatever. 
It's easy. There’s no reprogramming or retraining — you 
save time and money. 


¢ C.P.Mac will move any file from any CP/M machine to 
your Mac. It’s easy with your Imagewriter cable and 

CP/M programs you already have — no confusing modem 
transfers. 


A unique and quality Macintosh 
WA program at a value price of $135.00. 
0 fe Call and order now at (714) 953-8985 
ormailto: LOGIOQUE 


30100 Town Center Dr. “O”’ Suite 198 
eae es Laguna Niguel, CA 92677 


Visit us in September at APPLEFEST at the Long Beach Convention Center, Booth 1400. 


Oftiemeisk 
ee Pesce 
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Fi Or f h Compil er Lis ting (Listing continued, text begins on page 52) 


13 3: TARGET ( pfa or 0 --- ) 

14: CLEANUPDOS ( --- ) IMG FCLOSE DROP 4 DUP IF CFA THEN ’ HEADERS ! 

15 IMG FDELETE DROP TARG FILE! DROP TARG FCLOSE DROP MAPFILE 3 ICOLDCFA 2+ NFA FENCE ! FREEZE 

16 IF 1A MAP FC! MAP FILE! DROP HAP FCLOSE DROP THEN ; DECIMAL 6 APPTAG 
7 FORTHORG 3O1 = IF IMAGESAVE THEN 
8 VERBLISTS 
9 SETUPbus 

SCR #156 10 HEADERS IF RELOCATE ELSE RELOCATENH THEN 

1 ( TARGETMEMORY) 11 €R CR HEX DUP U. DECIMAL .” (HEX) Bytes in target. * 

2 12 TARGETMEMORY CLEANUPDOS FIXSMUDGE RAZE 

3: TARGETHEMORY ( n --- ) CR CR 13 CR CR .“ Target compilation coaplete.” ; 

4 .* (HEX) Target Memory Map" HEX 14 DECIMAL 

) CR TVRAM TVRAMOFF @ + 1- 4. ULR .” Last needed byte of RAM." 15 

6 CR TYRAM 4.U.R .” Target variable RAM start {TYRAM}." 16 /_ 

7 CR TEM 4 U.R ." Target-end-of-memory {TEM}." ee 

8 CR TBUFL 4 U.R .” Start of block buffer area {TBUFI}.° 


9 CR TRO4U.R .” Initial return stack pointer {TRO}." 

10 CR ISPO 4 U.R ." Initial stack pointer {SPO}. " 

11 CR TARGORG + 1- 4 U.R ." Target code end address {last used}.” 
12 CR TARGORG 4U.R ." Target origin {TARGORG}." 

13 DECIMAL ; 


SCR #157 
1 ( TARGET) HEX 
2 
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has taken the drudgery out of generating plots. These 
libraries contain the most complete collection of plotting 
subroutines you can buy. Each collection places over 50 
routines (in FORTRAN or C language) at your fingertips. The 
library makes it easy to: 





UPGRADES - FROM $49.95! 


ConiX Operating System: Adds more UNIX™like features 
to any 48K+ CP/M-80 or compatible micro then ever before. 
It’s a total upgrade for CP/M! Includes I/O Redirection and 
Pipes (uses memory or disk), perfected User Areas, Command 
and Overlay Path Searching. Auto Screen Paging. 8Mb Print 
Buffering, 22 new SysCalls, Function Keys, ‘‘Virtual’’ disk 
system. Archiver (saves over 50% disk), extensive command 
language. 300+ variables, 1004+ commands, and even more/ 
Uses 1/2K TPA, 0-27K disk minimum. 60-second install time/ 


Con!IX Library | - XCC Utilities: Over 20 utilities written in 
the ConlX shell language. including hierarchical directories, 








e plot semi-log and log-log graphs 

® draw arcs and circles 

e scale charts to exact sizes 

e label text in different sizes, directions, 
and orientations 

¢ design bar charts and pie charts 

® and much more 








92 


Operating Systems: MS-DOS and PC-DOS 


Plotters Supported: Houston Instruments 
: Hewlett-Packard 
HPGL compatibles 


Compilers Supported: Microsoft FORTRAN 
(specify compiler DR FORTRAN-77 
when ordering) RM FORTRAN 
Ci-C86 
MWC86 


Price: $295.00 
Visa, MC, American Express 


For More Information: The Librarian, Inc. 
10435 Greenbough, #110 
Stafford, TX 77477 
(713) 499-7662 or 491-2088 





Circle no. 148 on reader service card. 





interactive debugger, ae. multiple files, print files 
with pagination, review disk files for deletion, unerase disk 
with stats, full-screen TYPE, and more. Source code included / 


“(ConIX) goes a ent deal farther in flexibility than any other 
CP/M shells. . . this system has all of its competitors beat.” 
As reviewed in Computer Language, June 1985. 

e ConlX Basic System: List $99.%, Special - only $49.95 

e ConiX Programming System: List $99.95, Special - — $49.95 

e Both Systems 100% Complete: List $165, Special - only $79.95 

e ConlX PulttDown Menu: List $35, FREE with any ConlX system 
e ConiX Library |: List $49.95, with any ConlX system only 34.95 


Prices include manual. 8 disk. and user support. 5%%'’ conversions 
48TPI $6, other $10. Shipping: $4.50 UPS, $10 Canada, $15 overseas. 
NY residents add sales tax. Dealers wanted - special incentives! 


Computer Helper Industries Inc. 
P.O. Box 680 Parkchester Station, NY 10462 
800-628-2828 X513 2é4hr. order hotline - COD only 
212-652-1786 M-F:10-6 sales/technical staff 


UNIX: AT&T Bell Labs, CP/M: Digital Research, ConIX: Computer Helper Ind. 


Circle no. 22 on reader service card. 


Dr. Dobb’s Journal, October 1985 
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Utility Libraries 


~ All products are written entirely in K& RC. Source 


code included, No Royalties, Powerful & Portable. 
Migs Tela 75 OOo 
e High speed random and sequential access. 


e Multiple keys per data file with up to 16 million records per file. 


e~Duplicate keys, variable length data records. 
40.00 


ISAM Driver 
® Greatly speeds application development. 

» Combines ease of use of database manager with flexibility of program- 
ming language. 


_@ Supports multi key files and dynamic index definition. 


® Very easy to use. 


WE ie 4 CD 


® Patterned after the UNIX utility. 
e Works for programs written in every language. 
e Full macros, File name expansion and built in rules. 


Full Documentation and Example Programs Included. 





For more information call or write: 1343 Stanbury Drive 


Oakville, Ontario, Canada 


| LOL 255 
(416) 825-0903 
(416) 844-2610 


Credit cards accepted. Dealer inquiries invited. 


Circle no. 120 on reader service card. 


_ MULLEN S-100: geal TE worl? CON 


This 8 channel digital 1/O controller can monit 
outputs. It features an easy to read manual tl 
ist, and programming examples as well as 5 





_ 1CB-10 CONTROLLER BOARD 
_ $219, assembled and tested. 


MULLEN S-100: 







matic actuators, 


TB-4a EXTENDER BOARD 


lead edge connectors, pulse 
catcher switch and reset button. 


$110 assembied and tested. 


ations are included in arep 


iperature, wind speed and direction, . 
the atmosphere.) Solenoids, microswitches, pneu- — 





ZB-1 ZIF EXTENDER BOARD 
The latest in our TB line, the most This debugger features Zero Inser- 
widely used add-ons intheindus-_ tion Force edge connectors for 

try. Features logic probe, formed- easy board changes and long life. 
Expect 2,000 or more insertions : puter Produc dustrial dis 
rather than the usual 300 to 400 for CompuPro®’s products. For more information, 
with tension type connectors. 
$159, assembled and tested. 


Fatten Your 
Mac 
for $5.00 


Thanks to Macintosh owners everywhere, Dr. Dobb’s 
January 1985 issue #99 was a runaway best-seller. 






















Now, due to popular demand, the Doctor has reprinted the 
sought-after Fatten Your Mac article from the sold-out 
January issue. The article explains how you can pack a full 
512K of memory into your system, and save half the cost by 
performing the upgrade yourself. 


To order: Enclose $5.00 for each copy with this coupon and 
send to: 





Dr. Dobb’s Journal, 2464 Embarcadero Way, Palo Alto, CA 
94303 
Outside U.S., add $2.00 per copy for shipping & handling. 





Please send me copies of Fatten Your Mac. ALL 
REPRINT ORDERS MUST BE PREPAID. 


Name 


Address 











Steyn hE Zip 
Please allow 6-9 weeks for delivery. 
Offer expires Dec. 31, 1985 





hts, security system, and weather monitoring 
and direction, and graphing 


- | @ (213) 709-5111 


Hayward,CA © (415) 786-920 
Mullen Computer Products is the industrial dist 
at (415) 783-2866 or write MCPI, 2260 American Ave., #1, 


Hayward, CA 94545. OEM sales available from factory. 
Prices are subject to change without notice. 
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PADLOCK 


RECOMMENDED! 


Protect Any Program Using Anyone’s Diskettes 


Y ou are a program developer seeking 
a low-cost method to protect against 
piracy? You are with a prominent company 
fearful of embarrassing lawsuits should 
employees copy programs illegally? 

We have a devilishly clever solution for 
the two of you we call PadLock™. It gives 
you the keys to padlock any program you 
want—yours or someone else’s—without 
buying a stockpile of expensive 
fingerprinted disks. 

PadLock is software. One of its pro- 
grams formats any manufacturer's disk, 
embedding your secret code in sectors 
the operating system will ignore. Another 
program installs this code in any program 
files you name, whether YourProg or 
WordStar™, or any .COM or .EXE files. 
From then on there's no picking the lock 
without the combination: the coded soft- 
ware together with a coded disk. 

It's not despised copy prevention. Pro- 
tected programs can be copied any- 
where: to hard disks, to backup diskettes. 
It's alock and key scheme. A protected 
program will just lock up at load time with- 
out a keyed diskette (such as its own) in 
one of the drives. The key disk may then 
be removed to free the drive. 

Padlock is economical. You buy soft- 
ware that fingerprints 100 disks and their 
programs for $2.50 each, not costly 
fingerprinted disks you may never use at 
maybe $6.00 each. 

Tell you what. PadLock keeps track of 
how many disks it has protected. Try it out. 
Format up to 5 test disks. If PadLock 
doesn't suit you, return it within 30 days for 
full refund. 

Incidentally, don’t look elsewhere. Pad- 


Lock is available only from PC Brand. 
Code Our Price: 
M0100 100 formats 5250 


BRIEF 


IF YOU PROGRAM IN ‘C’ 
DON’T TURN THE PAGE! 





FIRSTIME 


Assistant Programmer for Hire. Real Cheap. 


N ot interested in interpreters? Then 
explore the other fast lane to coding: 
language-specific editors. Among them, 


OUTSTANDING! 


Is Anything But. A Whopper of an Editor 


vorak in Infoworld said it for us: ‘‘the 

word is getting around...that Brief, 
The Programmer's Editor is simply the 
best text editor you can buy.” With a name 
that belies its thoroughness, Brief™ has 
every feature you've ever contemplated 
for your editor-in-chief. Here goes: 

Text, from keyboard or files, is housed in 
multiple buffers, and scrolled through one 
or more windows you open, close, resize. 
A text buffer may be called to different 
windows to view two areas at once. A 
change in one changes both. Text blocks 
may be marked for printing, writing to 
files, movement to scrap buffers for cut 
and paste into other buffers, or deletion, 
with as many “undo” levels as you want. 

To find and fix, Brief has text search abil- 
ities rivaling “grep,” with wild cards for 
matching, indifference to intervening 
characters, acceptance of character 
ranges, even multiple choice of patterns 
and their replacements. 

If you use Lattice, C86™, or Wizard, and 
have 320k, you can compile your C pro- 
gram without ever leaving Brief. In fact, 
Brief will then find the lines with errors, 
and march you through the text for re- 
pairs. 

On to macros! Parts of Brief were written 
with its own Lisp-like macro language. It 





C-SPRITE 


Lattice’s Own Symbolic Debugger for Lattice® C 


his versatile companion to your com- 

piler gives you the best of both worlds 
for an out of this world price. Hand it a 
COM or EXE file produced by the Lattice 
C™ compiler (using the -d option) and C- 


CURSES 


A Screen Management 
Interface to Swear By 


urses manages the screen of the IBM 

PC in the same fashion as the curses 
utility of Unix and similar operating sys- 
tems. Use it to adapt programs which call 
Unix's curses functions for screen man- 
agement, and need the equivalent library 
when moved to the PC for re-compilation. 
Or use it when creating software on the 
PC to assure that it is Unix compatible. 

Curses is a library of eighty-four func- 
tions and macros which can keep any 
number of screen images in memory. A 
screen may be full or partial size, and any 
can be summoned to the physical screen 
at your programs'’s command. 

Within a screen, Curses employs a vast 
function set to get characters, wrap lines, 
scroll, blank lines, highlight— virtually any 
conceivable tool needed to update the 
screen. The product supports color, and 
all four memory models. Its input functions 
give you control over whether to echo 
each character toa memory screen. In 
keeping with the terminal orientation of 
Unix curses, the physical screen is re- 
painted (at high speed) only when your 
program calls a refresh function. 

Writing screen management code leads 
to unspeakable snarls and expressions. 
Swear off! Let Curses clean up your lan- 
guage. 





Code: List Price: Our Price: 
LO850 $125 5100 
L0860 with Source $250 5200 


Sprite will speak your language: your 
function names, your variable names, 
your data types, and the line numbers 
from your source code. At the same time 
you can get a close-up view of machine 
addresses and machine-coded instruc- 
tions, if you want to scrutinize just what 
machinations the compiler (or an assem- 
bler) contrived. 

You already know how to converse with 
C-Sprite™ if you are familiar with Micro- 
soft's Debug. Lattice began with that well- 
known command language, and added to 
it considerably: You can work with data in 
hex, as you might expect, but you can also 
differentiate between C's data types to 
cause the debugger to treat addresses as 
strings, long integers, even pointers, etc., 
both in display and entry. 

C-Sprite can set breakpoints using sym- 
bols or addresses. You can submit clus- 
ters of commands to be executed at the 
breakpoints, or set commands that exe- 
cute until a condition is met. 

C-Sprite even has macros—use your 
source code variable names in a macro to 
dump the contents of entire C structures, 
for example. And you can debug through 
one of the COM ports with a second termi- 
nal so as not to disturb your program's dis- 
play screen. What's more, if you link with 
ee C-Sprite can even tackle over- 

ays. 

Program doctors will find plenty of im- 
plements to rummage through in this kit- 


bag. Product Code: L2300 Our Price: 


List Price: $175 $145 
iE 
PC BRAND, Craftsman, PadLock and Toolbox TMs of 
PC BRAND / Unix TM Bell Laboratories / Lattice regis- 
tered TM; and Lattice C, LMK, C-Sprite, CVUE and dBC 
TMs of Lattice Inc / dBASE TM Ashton-Tate / c-tree TM 
FiarCom/Pre-C, Plink86 TMs Phoenix Computer Prod- 
ucts /MS TM of Microsoft / IBM registered TM Int'l. 
Business Machines / FirsTime TM Spruce Technology 
Corp. Inc. / WordStar registered TM Micropro / C86 TM 
Computer Innovations Inc/ Access Manager, TM Digital 

Research / Brief TM UnderWare Inc. 


$$ 


has structure, 32-character variable 
names, conditional execution, loops, and 
you can actually read it! Nothing like the 
hieroglyphs we've seen elsewhere. A 
compiler comes with your copy, and pre- 
written macros in source to give you the 
flavor. Among the notables: one automati- 
cally indents C text; another turns Brief 
into a word processer with margin setting 
and wraparound. 

There's a bulletin board with public do- 
main macros contributed by a mushroom- 
ing cult of macromaniacs, and we've even 
hearing of megamoney prices for magni- 
ficance. 

Then there's ... but, really, we’re out of 
space. Who named this product, anyway? 


Product Code: U0590< Our Price: 
List Price: $195 ‘CALL 
Needs 192k 


LMK 
A Unix-like ‘‘Make’”’ 
Makes Light of System 





Building in Any Language ““?»°° 295 


f you have ever built a complex system, 

you know the time loss and tedium of 
recompiling, rebuilding libraries and re- 
linking modules because a snippet or two 
of code has changed. Batch files are no 
answer. You need batches of them to avoid 
redoing everything indiscriminately. 

Instead, imagine making a change deep 
in a system, and simply telling Lattice's 
LMK™ to take over. No further thinking or 
keystrokes. LMK will rebuild your final 
product, however involved and complex, 
by doing just what is needed and no more. 

How? You write a command file which 
expresses, bottom to top, all the elements 
comprising your system and all its depen- 
dencies: what gets compiled to make what 
object file using what options; what is built 
into libraries; what is linked into the final 
EXE file. Through the life of your system 
LMK keeps track of the last time every 
action was performed. Run LMK and, 
tracking each branch, it looks only for ele- 
ments which changed later than a depen- 
dent element further along the branch, 
using date and time information in the file 
directory. Any source file newer than its 
object file, for example. Only those ele- 
ments and their dependents are re-made. 
All other instructions are bypassed. 

LMK does not care what programming 
language you use; it's not just for C. For 
that matter, LMK can apply to more than 
programming. It can be used for any set 
of tasks which can be accomplished 
through commands issued to the operat- 
ing system. 

Wherever your imagination leads you, 
LMK will find the shortest path to get the 
job done. Minimum time, minimum effort 


software. 
Product Code: L2100 Our Price: 


159 


List Price: $195 





PC BRAND ships anywhere. We'll pre- 
pare the export documents and ship to 
you or your agent by air parcel post, air 
freight or courier. Phone or Telex your 
order for speed. To pay by credit card, 
please provide number, date of expiry, 


EXPORT EXPERTISE 


name and billing address of card. Or 
wire funds to PC BRAND, c/o Chemical 
Bank, 126 East 86th St., New York, N.Y. 
10028, Account No: 034-016058. We will 
ship immediately and acknowledge by 
Telex if a number provided. 


FirsTime™ is the strongest C editor we 
have seen, with many more commands 
and built-in utilities. 

FirsTime asks what program structure 
you want and sets it up for you. It could be 
“main” or “function” or “if-else” or 
“while” or any component of C. Ask for it 
and FirsTime fills in its skeleton, tending to 
semi-colons and curly braces. 

It puts placeholders into these struc- 
tures to prompt you to enter workable 
code—the initializers, conditionals and 
counters which govern an “if: for exam- 
ple. It checks that variables you enter 
have been declared, and highlights errors 
until fixed. Material can be pulled into ten 
buffers for movement elsewhere. Your last 
delete is held in one of them for “‘undo- 
ing’. There's search and replace, writing 
of any marked block to a satellite file or 
the printer. 

FirsTime can even transform one type of 
structure into another, such as “for” into 
“while” or “while” into ‘‘do”’ 

Movement through the screen highlights 
the successive logical blocks of your pro- 
gram so that its structure is always appar- 
ent. And FirsTime can hide different 
levels of code detail to show you only the 
outer framework of your program. 

FirsTime saves keystrokes to add speed, 
indeed, but more important, it lets you 
think at a higher level and makes a big 
contribution toward error-free code. 


Product Code: E0460 Our Price: 
8229 





CODE SIFTER 
Find the Fast Track for 


_ Your Program 


ou know it runs, but how fast? If it can't 

win, better not enter your program in 
today’s horse race. Don't let it out of the 
stable until you've put it through its paces 
with our value- priced stopwatch. 

Code Sifter finds the sluggish spots in 
your program. On its own, it will divide a 
COM or EXE file of any size into thirty-two 
equal partitions. Or specify the partition 
boundaries with addresses, or with sym- 
bols, if your linker has produced a symbol 
map. Then tell Sifter to run your program. 
It samples your object file at precisely 
timed intervals and counts how many 
times it finds the instruction pointer in 
each partition. Job done, it reports the 
number and percentage of hits in each. 

You are in for some surprises when you 
discover how unbalanced the activity is 
likely to be, and that’s why Code Sifter is 
so valuable. It profiles just where you can 
best spend time optimizing your code, or 
even converting to assembler subroutines. 

Code Sifter has a number of monitoring 
options. You can tell it to include any com- 
bination of your program, DOS, and BIOS 
in its analysis. You can specify the sam- 
pling rate. You can tell Code Sifter the 
number of times to run a program, and be- 
tween each run discard the less active 
ranges, and re-partition the hot spots, so 
that you zoom in ever-tighter on small ar- 
eas of code. Rignt down to the last byte! 
Try it on the sample program that comes 
with your disk. 

Code Sifter. It will give you the racer's 


edge. Product Code: N3100 Our Price: 
List Price: $119 5 99 















CRAFTSMAN" QUAL 


FOR ‘C’& OTHER PROGRAMMERS 





C-TREE 


\ 


B-Tree File Manager, Source Code, No Royalties! 


b-tree can be infested with bugs, so 

before buying one, ask its age. Ina 
stand of saplings, this one is a real ce- 
quoia. C-tree™ has been around since 
1979. (It became Digital Research's Ac- 


TEXT TOOLBOX 
Tackles Text Tangles 


U nix™ boasts a number of muscular 
utilities that are migrating to the PC 
world. Lattice has assembled a cluster of 
the most useful text management tools into 
a single package. 

“Grep" looks for text patterns in any 
number of files. Want all occurrences of a 
global variable throughout a program sys- 
tem? Want to search all programs in a di- 
rectory, down paths to other directories, or 
all files on a disk? Need to find all the func- 
tion calls in an entire program system? 
Grep can do it with a powerful expression 
syntax that goes far beyond your text edi- 
tor’s search command. 

“Ed" is similar to the well-known Unix 
editor. It offers search and replace with 
“grep's" syntax, block move, read and 
write, optional line numbering, append, in- 
sert, delete, and this unusual facility: you 
can instruct “ed” to apply a file of com- 
mands to any number of target files, even 
complicated changes and text additions, 
such as those created by “diff”. 

“Diff’ compares text files line for line. Its 
output is a precise list of instructions tell- 
ing what to do to make two files the same, a 
list which can be handed to “ed” to do. 





Code: List Price: Our Price: 
L2200 $120 5100 
L2205 with Source 240 5200 





CVUE 
Make Your Own Editor 


VUE is a low-priced screen-oriented 

text editor which does most of the 
things that a good editor should do, and 
boasts full DOS 2.0 directory path name 
support in reading and writing files. 

It was written by the Lattice program- 
mers who felt forgotten by the folks who 
write WP software. They needed easy en- 
try of non-display characters such as con- 
trol codes and escape sequences, not 
footnotes; indenting and undenting, not 
italics; pattern searching, not spell check- 
ing. So CVUE™ was born. 

CVUE only supports in-memory text 
files, but with memory at today's prices, 
creating and maintaining files of over 500 
K is practical. As compensation, CVUE is 
very compact and fast. It actually runs in 
computers with only 64 K of memory and 
uses no tediously slow overlays. 

The power of CVUE is its ease of cus- 
tomization. And when you take advantage 
of the Source Code option, the resultant 
editor can be made truly your own. 


Code: List Price: Our Price: 
L2240 $ 75 $s 69 
L2245 with Source 5200 5220 


TERMS AND CONDITIONS OF SALE 
Licenses: Each price is for a license to use a 
product on a single computer and does not consti- 
tute its ownership. We will inquire for you about 
availability of multiple machine licenses at a single 
site. Except for those coded “#”, products may be 
used to create programs for distribution without 
royalty payments or additional licenses, provided 
said programs do not substantially replicate the 
products themselves. 

Compatibility: PC BRAND's standard products 
are designed to operate with the IBM* PC, XT or 
AT under PC-DOS and require no more than 128K 
of RAM unless indicated. Non-IBM machines us- 
ing MS-DOS: If in doubt as to total compatibility, 
please determine from manufacturer. 

Returns: Defective parts will be replaced. Prod- 
ucts coded ‘‘<” are rendered unreturnable ¢f 
sealed envelopes containing diskettes are 


Circle no. 108 on reader service card. 


cess Manager™). That means seasoned, 
sturdy code which hasn't cracked under 
prolonged and widespread use. 

C-tree comes in C source code, reveal- 
ing all you've ever wanted to know about 
how b-trees are written. Provided you 
bind it into your binary application, you 
can re-distribute c-tree without royalties. 

And if all this is disappointing, now the 
good part. C-tree’s design splits nodes to 
allow any number of users to access an In- 
dex file simultaneously even when up- 
dates are in progress so that multi-user 
configurations and adaptation to networks 
are possible. 

The latest version has new features: sup- 
port of variable record length data files; 
multiple key indexes in a single physical 
file; MS-DOS and Unix record locking 
examples. 

Thanks to source code which does not 
deviate from K&R, C-tree can travel. Bi- 
nary has always meant finding a substitute 
file manager for yet another compiler, op- 
erating system, or computer; then chang- 
ing all the function calls program-wide; 
then starting the whole testing process 
anew. That's over. Tests in many environ- 
ments prove that C-tree gives your appli- 
cation a ticket to anywhere. 

C-tree permits any number of keys for a 
data file, supports duplicate keys, alpha- 
numeric or numeric, etc., etc.: it's a big 
product with everything you'd expect. Be- 
yond that it is intelligently designed as 
both a high level set of ISAM routines to 
minimize your coding by handling all de- 
tails of adding a record on its own, for ex- 
ample; and as low level operations which 
you can access directly. Either way C-tree 
maintains optimal index structures which 
will find a record amongst a million ten 
byte keys in no more than five disk seeks. 

Product Code: F0660< Our Price: 


List Price: $395 $329 





USED COMPILERS 


WELCOME 
Trade In for the Latest 
Model Lattice C 


as your compiler runout of gas? Has 
your model been discontinued? Is it 
falling behind for lack of new parts? 

Even if yours is in good shape, you have 
surely noticed there are more options and 
accessories produced to run with the Lat- 
tice C compiler than any other. Don't do 
without these additives any longer. It's 
time for new license plates. Trade in your 
original disks and manual of any of the 
compilers below and we'll send you Lat- 
tice's most up-to-date model. 

From then on you will be adopted by 
Lattice for full, direct support by their 
technical specialists. Price: 


Microsoft MS-DOS/PC-DOS C $150 


Computer Innovations C86, 

Mark Williams C, 

Digital Research C, 

Whitesmith’s C $200 





opened. Otherwise, to return a product for refund 
or credit, call (212) 410-4000 for required prior 
authorization. 

Payment: We honor MasterCard, Visa, American 
Express (no surcharge), wired funds, checks in 
advance (in NY State, add sales tax), and will ship 
COD (U.S. only) for cash, money order, or certified 
check (no fee). Purchase orders accepted from 
larger corporations and institutions at our discre- 
tion; terms net 30, 2% a month late penalty. 
Shipping & Handling: U.S.: UPS Surface: 1st 
product $6, each add'l $3. UPS 2nd Day Air: 1st 
product $10, each add’l $4.50. UPS Next Day Air 
or Federal Express 1-2 Day Air: 1st product $18, 
each add’! $6. Federal Exp. Next Morning: 1st 
product $28, each add’! $7. International: Charges 
depend on destination and shipping method. $10 
per shipping container for export or customs 
forms. 





That’ (800) 722-7263. In 





PRE-C 


ITY SOFTWARE 






Thorough “‘Lint’’-like Analysis Now on the PC 


nix users long for a ‘‘lint” to give pro- 
grams a thorough cleaning before 
they disappear into a compiler. 

Pre-C™ looms larger than “‘lint.” It finds 
problems your compiler won't. Problems 
that a debugger will have trouble figuring 
out. Even problems which will cause trou- 


30-DAY 
MONEY-BACK 
GUARANTEE 


We will return the purchase price® of 
any product in this space if you decide it 
fails to meet your needs except those 
coded"<" by requirement of their sup- 
pliers. We want you to be completely 
satisfied with your purchase. Go through 
the manuals, try out the products, and 
‘make a thoroughly informed decision 
whether they are right for you. 

The only requirement for refund or 
credit is that we must receive your re- 
turned product within 30 days of its ship- 
ment, and it must in our judgment be in 
100% resaleable condition. 

‘@) Not shipping and handling. 


SUPPORT DIRECT 
FROM LATTICE 


Products with codes beginning ‘L’ are 
all fresh from Lattice Inc., the premier 
software developer serving the C pro- 
fessional marketplace. PC BRAND has 
made special arrangements for Lattice 
to provide telephone support for these 
products directly. 

Take advantage of this unusual oppor- 
tunity. Buy from PC BRAND, and you get 
to talk to the experts themselves! 





dBC 


ble with other compilers. 

Pre-C finds all the syntactical tripwires 
that will blow out a compiler, sure, but it 
goes after subtler problems: code which 
will never be accessed, casts with suspect 
conversions, variables declared as exter- 
nal but never used, functions never called, 
obsolete usage (even C has changed), ma- 
chine-dependent expressions with will in- 
hibit portability. 

Compilers work with one module at a 
time. They know nothing of other modules 
which only meet up at link time. Pre-C can 
look at al] segments of your program at 
once and report to you any inconsistencies 
of inter- module references: conflicting 
data type declarations, parameter lists in 
function calls which disagree with the 
functions themselves in number or data 
type, declarations of external functions 
which differ from their definition. 

Pre-C uses the Unix System III compiler 
standard to safeguard maxium portability 
anywhere in the C world. There are then 
plentiful command line options to advise 
Pre-C what to flag and what to forgive, use- 
ful during early coding when some func- 
tions are empty or incomplete. The output 
of each analysis can be filed for use with 
subsequent Pre-C runs, so work is not per- 
formed redundantly. 

Pre-C lets you develop standing profiles 
of binary libraries. In any C program you 
subsequently write, Pre-C can use these 
profiles to make sure your calls to those 
libraries’ functions are perfect. 

This is a big product which will work 
miracles in speeding large system devel- 
opment. 128K minimum; 192K recom- 
mended. 


Product Code: P0590 
List Price: $395 


Our Price: 


5329 





Switch from dBASE Language to C for Power, Speed 


here are a lot of dBASE™ file users 
out there. Most of them just keep data 
bases and use dBASE’s limited reporting 
facilities. They're not programmers, so 
they don't use the dBASE programming 
language. But they'd like more for their ef- 
forts, and that’s a business opportunity. 
dBC™ links C to dBASE. It creates and 
maintains files and their indexes which ex- 
actly replicate dBASE file design. So 
dBASE can read and update them. And 
the reverse. dBC can use any files created 
by dBASE. Now C and dBASE can operate 
on the same data bases interchangeably. 
That opens up the widespread culture 
of dBASE installations to exploitation by C 
programmers. Now you can replace the 
resident dBASE language with the speed 
of C. And you no longer have to write 


Code & Version: 

LOOII: Dbase II] Compatible 
LCCII: with Source Code 
LOIII: Dbase II] Compatible 
LCIII: with Source Code 





every line of code, as in the dBASE lan- 
guage, because now you've unlocked C's 
vast storehouse of off-the-shelf libraries 
and utilities. 

ABC's functions parallel all dBASE's file 
handling commands, many of them de- 
composed to give you closer-in control. 
The manual discusses each in detail, and 
demonstration source files on your disk 
show how every function is used. Use dBC 
for custom work for clients, or design gen- 
eralized programs for manipulation and 
reporting of dBASE data bases. 

Or use dBC on its own. It’s a complete 
ISAM file manager for use with the Lattice 
C compiler whether or not dBASE will 
ever be used in tandem, has versions for 
all four memory models, and can have six- 
teen index and data files open at once. 


List Price: Our Price: 
$s 250 $225 
s 500 $450 
s 250 $225 
$ 500 $450 


To Order Products or Catalog, Call Us at... 


Prices, terms, and specifications subject to change without notice. 


© 1985 PC BRAND 


-PC BRAND 


NY State or Outside US. call (212) 410-4000. 
PC Brand, PO. Box 474, New York, N.Y. 10028 
TELEX: 667962 (SOFT COMM NYK) 
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Neon, Version 1.0 

Company: Kriya Systems, Inc. 
505 N. Lake Shore Drive, 
Suite 5510, Chicago, IL 
60611, (312) 822-0624 

Computer: Apple Macintosh 
(128K) 

Price: $155.00 

Circle Reader Service No. 101 

Reviewed by Bruce Horn 


This review is reprinted with the per- 
mission of the author, Bruce Horn, 
and The Club Mac News, in which it 
originally appeared (Vol. 1, No. 12, 
May 1985). 


I have not written many programs in 
Forth. I’ve always considered Forth 
to be a sort of high-level assembly 
language, fun for hacking around in, 
but not suited to development of 
large programs. I have written Small- 
talk programs, though, and when I 
heard that Charles Duff and the folks 
at Kriya had developed Neon, an ob- 
ject-oriented programming environ- 
ment that was said to be a cross be- 
tween Smalltalk and Forth, I was 
intrigued; is this the long-awaited fa- 
vorite programming environment for 
the Macintosh? 


History of Object-Oriented 
Programming 

Object-oriented programming began 
in the early 1960’s with the develop- 
ment of Simula by the Norwegian 
Computation Center in Oslo, Nor- 
way. Simula was the first language to 
implement the Class construct. In the 
early 1970's, the Learning Research 
Group at Xerox Palo Alto Research 
Center began implementation of the 
Smalltalk programming environ- 
ment. Smalltalk was the first system 
to be designed completely around the 
Class/Object concept. Many other 
languages have since provided sup- 
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port for classes, objects, and subclass- 
ing, including CLU, Ada, C++ (an 
extended version of C), and several 
versions of LISP, though objects and 
classes are not as well-integrated into 
these languages as they are in Small- 
talk. The ease of experimentation 
with objects was one of the key rea- 
sons that much of the interesting user 
interface designs borrowed for Mac- 
intosh and Lisa were created in the 
Smalltalk system. (See Small/talk- 
80: The Language and its Implemen- 
tation, by Adele Goldberg and Dave 
Robson, for more details.) The latest 
version of Smalltalk has been li- 
censed to several universities and 
computer companies; Tektronix mar- 
kets a 68000-based Smalltalk ma- 
chine for around $14,000, and a ver- 
sion of Smalltalk-80 will soon be 
available for the Macintosh XL. 


Classes and Objects—a Quick 
Overview 
In Neon, classes define objects, a 
convenient packaging of |) the data 
that defines the object and 2) the ob- 
ject’s actions. For example, Class Pen 
defines what a pen object looks like 
(as far as its internal state) and acts 
like (the messages it responds to). 
The internal state, or instance vari- 
ables of a Pen object, might include 
location, direction, and pen size; the 
messages that pens respond to would 
include move:, turn:, goto:, and home:. 
(The Neon tutorial has an excellent 
discussion of the implementation of a 
Pen class, with examples and line-by- 
line explanation of the source code). 
Class definitions are bracketed by 
:Class and ;Class words, and include 
a list of instance variables (which 
may themselves be objects) and 
methods (the procedures run when a 
message is sent to the object). 
Defining a class is like designing a 
little computer, with its own memory 





(the instance variables) and instruc- 
tion set (the messages it can receive). 
In using a computer, usually you 
don’t concern yourself with how the 
computer executes the instructions 
you give it. If you did, and you count- 
ed on the various nuances of the im- 
plementation of each instruction, 
programming the computer would be 
much more complicated. Classes pro- 
tect you from the need to know about 
the implementation of the object 
(computer) by allowing you to talk to 
the object through a set of messages. 
Responses to messages include re- 
turning a result on the stack, chang- 
ing the internal state of the object, 
sending messages to other objects, or 
just producing a side-effect (such as 
drawing a line on the screen). 10 
move: Bic sends the message move: to 
the pen object named Bic, changing 
its location instance variable and pos- 
sibly drawing a line on the screen; 45 
turn: Bic turns the pen 45 degrees to 
the right. One advantage of having a 
pen object do your line drawing on 
the screen instead of just calling 
Quickdraw directly is that you can 
have many separate pens, each with 
its own state, and you can send mes- 
Sages to them independently. To 
paraphrase Dan Ingalls, one of the 
developers of Smalltalk, program- 
ming with objects is like working 
with trained animals instead of push- 
ing data around with a broom. 
Classes may be defined that are 
subclasses of another class. This 
causes objects of that class to inherit 
both the instance variables and ac- 
tions of the superclass. Subclassing 
provides the capability of saying, “I 
want something just like that, except 
a little different.” For example, you 
might want to have a Pen that re- 
corded its movements. Since the cur- 
rent class Pen handles everything ex- 
cept the recording, subclassing Pen 
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and creating a RecordingPen that 
provides the capability would make 
the most sense. 

Since class RecordingPen is a sub- 
class of Pen, RecordingPen objects 
will have both Pen and RecordingPen 
instance variables, and will respond 
to the union of all Pen and Recor- 
dingPen messages. In general, if the 
message is not defined in the class 
that the object belongs to, Neon will 
search up the superclass chain to find 
a class that can respond to the mes- 
sage, and runs the appropriate meth- 
od. You may also add new messages 
and instance variables to distinguish 
your class from the superclass, and 
you can override superclass messages 
by providing them in your subclass. 

To create the new RecordingPen 
class all you would need to do is add 
startRecording:, stopRecording:, and 
playBack: messages, and a new in- 
stance variable penRecord, which 
keeps the list of messages sent to the 
object since recording started. By 
overriding each message that the ob- 
ject wants to record, it can remember 
the message in penRecord and send 
the appropriate message to its super- 
class, Pen, to do the actual drawing. 

Building a system from scratch 
based on classes and objects provides 
an extremely flexible, compact and 
modifiable system. Since the code 
that defines the system itself is acces- 
sible, extensions to the system may be 
made quickly and easily at even the 
lowest level. 

(For an excellent discussion of 
classes, messages and object oriented 
programming, see Brad Cox’s article 
‘““Message/Object Programming: An 
Evolutionary Change in Program- 
ming Technology” in the January 
1984 issue of IEEE Software.) 


Built-in Classes 

Since Neon, like Smalltalk, was writ- 
ten in itself, using its own object and 
class concepts, the groundwork for 
building applications is already there 
and fully accessible to the program- 
mer. The basic classes provided in 
Neon make it easy to support. the 
Macintosh User Interface standard 
with minimal effort. In Pascal, a Mac 
program typically has several large 
case statements at the very highest 
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Periscope ... A Direct Hit! 


“‘A great debugger ... If you’ve been frustrated by 
programs that don’t behave the same for the debugger 
as when running alone, or that crash altogether, you 
should check out Periscope ...”’ 


PC REPORT, Boston Computer Society 








“Tt works, and works well!! In the first day of use I 
finished up two weeks of problems!! Really ex- 
cellent!!!”? 


Peter Loats, Periscope User 


Periscope’s differences hit home! Its 
breakout switch gives you control, even when in- 
terrupts are disabled. Periscope’s unique power 
helps you solve the difficult problems. Debug device- 
drivers, memory-resident, and non-DOS programs. 


Great for straightening out confused C 
pointers! Using its breakpoint power, you can stop — 
on reads and writes to ranges of memory. Stop on 
registers, words, and bytes, too. 


It’s tough. Periscope’s 16K RAM board is write-protected. Runaway 
programs can’t touch crucial debugger code! Examine the system, safely, at 
any time: Periscope saves the interrupt vectors and buffers it uses, then 
restores them when done. It uses ROM BIOS calls for functions except file 
access, so DOS can’t clobber itself. 


It gets you moving. It’s commands are similar to Debug’s, so you’ll 
master it quickly. On-line help is there when you need it. You can define the 
windows you want; you can design easy-to-read memory displays. Periscope 
supports C, Assembler, BASIC, and Pascal. Comprehensive symbol sup- 
port gives you a roadmap through memory tying back to your source. 


It’s risk-free. Periscope is backed up by a 30-day, money-back guarantee! 
The board is warranted for a year. Technical Support? You get the best 
there is ... direct from Brett Salter, Periscope’s author! 


It requires. An IBM PC, XT, AT, Compag, or close compatible; PC- 
DOS, 64K RAM; a disk drive and an 80-column monitor. With two 
monitors, Periscope’s screen is displayed on the monitor not in use. With 
one monitor, a keystroke switches screens. 


It’s power you can afford. At $295, you can afford Periscope’s 
professional power. The system includes the memory board, breakout 
switch, debugger software, manual, and quick reference card. 


Order now! Call toll-free (800) 722-7006 to place your order or to get 
more information. MasterCard/VISA accepted. 


Get your programs up and running; 


uP PERIS E! 
Data Base Decisions/14 Bonnie Lane! Atlanta, GA 30328/(404) 256-3860 


Circle no. 31 on reader service card. 
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4xFORTH™ 
for the 
Atari 520 ST 
Multiuser, Multitasking 32 Bit 


Forth Based on the 83 Standard. 


4xFORTH Level 1 $99.95 
4xFORTH Level 2 with GEM 149.95 
Forth Accelerator 75.00 
4xFORTH Development System 500.00 


The Dragon Group, Inc. 


148 Poca Fork Road 
Elkview, WV 25071 
304/956-5517 


Circle no. 146 on reader service card. 


HISOFT 


HIGH QUALITY (Cp /)y4 


SOFTWARE 


HiSoft has been selling Z80 CP/M software in 

Britain and Europe for over 4 years. Now we'd 

like to introduce you to our range of program- 

ming languages: 

HiSoft Devpac: Z80 assembler/editor/ 

debugger 

Kernighan/Ritchie 

implementation 

HiSoft Pascal: fast, standard compiler 
All at $69 inclusive each. 

These programs are also available for other 

Z80 machines including Timex 2068. 


Call or write for full technical details and 
press commentaries, or order from: 


yz WISOFT 
BSS insiable Luo 1AT 
— wore ENGLAND 


01144 (582) 696421 
Circle no. 48 on reader service card. 











HiSoft C: 















CROSS ASSEMBLERS 
for the 8048 and 6502 


Now you can use your PC with TASM65 to 
generate code for your old KIM/SYM/JOLT/ 
AIM/OSI or homebrew 6502 system. Or, use 
TASM48 to develop code for 8048/8748/8035 
based projects. 


e For the MSDOS 2.X operating system 
e Standard Mnemonics/address mode syntax 
¢ Complex expression evaluation (17 operators) 
e Object code output in Intel Hex. MOSTech Hex, 
or binary format 
¢ Compatible with Aparat PROM blaster for inex- 
pensive EPROM burning 
¢ Source code available (in C)-table driven code 
easily modified for many other 8 bit micropro- 
cessors 
e Absolute code generation only 
e Unprotected disk 
¢ 30 day money back guaranty 
TASM — A Table Driven Assembler 
TASM48 — An8048 Assembler $30.00 postpaid 
TASM65 — A 6502 Assembler $30.00 postpaid 
Both, with source code $75.00 postpaid 
Washington State residents add 7.8% tax 
Send check or money order to: 


SPEECH TECHNOLOGY, INC. 
16321 176th Ave. N.E. 
Woodinville, WA 98072 


Circle no. 136 on reader service card. 
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level of the main program to classify 
events received and to dispatch them 
to handlers. Neon helps to take care 
of this by encapsulating most of the 
standard event handling in class 
Event, menu selection and dispatch- 
ing in class Menu, and standard win- 
dow actions in class (you guessed it) 
Window. Through these classes, 
Neon shields the programmer from 
the standard necessities and deals 
with most of the housekeeping that is 
required in a Macintosh application 
behind the scenes. 

There are many other classes writ- 
ten to simplify interaction with the 
User Interface Toolbox. Class File 
provides access to the Toolbox File 
I/O and Save/Open dialogs, and 
class String defines messages for 
printing, insertion, and pattern 
matching of text strings (a nice inter- 
face to Munger, the Toolbox string 
handler). In addition, there is a set of 
nine classes to support Quickdraw, 
including Rect, Oval, Picture, and 
GrafPort. All Toolbox routines are 
directly accessible. 


Using Neon 

Neon is started by double-clicking on 
neon.com. Neon.com is a prebuilt en- 
vironment in which a basic set of 
classes, messages, and objects have 
been installed. As you work in this 
environment, you will be creating 
classes, objects and messages, as well 
as new Neon words. Once you have 
modified the default environment 
you may save it on the disk. In this 
way you can build your own custom 
Neon system. 

When Neon starts up, it comes up 
with a single teletype window, where 
you can type Neon commands. Out- 
put from some of the utilities appears 
there also. The Neon window does 
not update when windows are moved 
around above it, which is a minor nui- 
sance. There is no text editing al- 
lowed in the Neon window other than 
backspacing. 

It is fairly easy to create new win- 
dows and menus while in Neon and to 
attach Neon words to each menu 
item. For example, sending the mes- 
sage Example: to a new window cre- 
ates a Neon window that will inter- 
pret any text typed to it. There are 


also example messages in several 
other classes, including Control. 

The standard Neon.com «ystem, as 
it comes from Kriya, has five menus: 


1) The Apple menu has the standard 
list of desk accessories, an ‘‘About 
Neon...” item, and an extra acces- 
sory called “Editor.” This accessory 
provides the text-editing facilities 
necessary for editing class and object 
definitions within Neon. 


2) The File menu consists of five 
items: 

Load... loads a text source file into 
the current environment, defining 
new classes, objects, and messages. 
You would load grdemo.load to de- 
fine the special classes for the graph- 
ics demonstration program. 

Save saves your current environment 
onto the disk. As you modify classes 
and customize the system to meet 
your needs, you can save the com- 
plete system and return to it by sim- 
ply opening the appropriate Neon 
document. This is often called “‘tak- 
ing a snapshot.”’ 

Save As... allows you to save your 
Current environment under a new 
name. 

Print... prints a specified text file to 
the printer. The print command pro- 
duces a formatted (“prettyprinted”’) 
listing of the source code in the file. 
Quit closes all files and returns to the 
Finder. All changes made to the 
Neon environment are lost (unless 
they had been previously Saved. ) 


3) The Edit menu provides the stan- 
dard Undo, Cut, Paste, Copy, and 
Clear items, as well as a special Edi- 
tor item to start up the editor desk 
ACCESSOTY. 


4) The Utilities menu has six items: 
List Words lists all words currently 
defined in the dictionary. 

List Objects lists all objects of a given 
type that currently. exist in the 
environment. 

List Classes lists all defined classes in 
the current environment, indenting to 
show subclass relationships. 

Examine Memory is a feature that al- 
lows you to examine and search the 
Macintosh memory. 
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Grep... searches all text files on the 
disk for a given string. The results of 
the search (file name, line number, 
and text line) are printed in the Neon 
window. 

Install lets you change the sizes of the 
stack, dictionary, and heap. The 
stack and dictionary are adjustable, 
while the heap gets what is left. 


5) Finally, the Neon menu provides 
five items: 

Echo to Printer echoes all text that 
appears in the Neon window to the 
printer, including text that is typed 
by the programmer. This is especially 
useful in that it allows the program- 
mer to keep a record of the input and 
output of a program being debugged. 
Echo During Load displays the text 
from a source file being loaded in the 
Neon window as it is being compiled. 
This is useful in helping the program- 
mer debug a new module or class 
definition. 

Show Free Space displays the amount 
of memory available in the dictionary 
and the heap in the Neon window. 
The last two entries in the Neon 
menu deal with modules. Modules 
are separately compilable, relocata- 
ble code segments that are loaded 
and purged from memory dynamical- 
ly. This allows large applications to 
run without having to be completely 
resident in memory. These modules 
act similarly to the Macintosh code 
segments in that they are dynamical- 
ly loaded into memory and purged 
when not in use. Many of the menu 
items in Neon are defined by mod- 
ules, including Grep and Examine. 
Show Module Status lists all purgea- 
ble modules currently defined in the 
dictionary and shows whether they 
are loaded by printing their memory 
locations (or 0 if not loaded). 

Purge Modules purges all modules 
from the heap, freeing up space for a 
memory-intensive operation. 


Because the Neon window pro- 
vides no editing capability, the sys- 
tem comes with an editor to edit class 
definitions within Neon. This editor 
is an enhanced MockWrite desk ac- 
cessory, from CE Software. I found it 
easy and convenient to use, though I 
would prefer a built-in editor in 
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which I could select, edit, and exe- 
cute Neon statements directly. Once 
a class definition is created, it may be 
loaded into the system by either typ- 
ing // followed by the filename or by 
selecting the Load item in the file 
menu. Either action begins compila- 
tion of the file. After the file has been 
completely compiled and defined in 
the system, you may create new ob- 
jects, send messages to previously- 
created objects, and so on. 

After a few hours with Neon, I felt 
quite at home creating objects, send- 
ing messages, and building graphical 
tools. The fact that Neon is an inter- 
active programming environment is a 
great advantage in building applica- 
tions for the Macintosh because the 
turn-around time is much shorter and 
experimentation is easier. Neon also 
provides a facility for “sealing off” an 
application, creating a double-click- 
ing program without access to the 
Neon environment. 


Forth improvements 
Besides support for objects and class- 
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2606 Johnson Drive 
Columbia MO 65203 


es, Neon has other improvements to 
standard Forth. The main objection 
to Forth is usually the need for 
strange and unintelligible stack ma- 
nipulation in function definitions; 
Neon avoids this through local vari- 
ables and named parameters. Con- 
sider the example in the Neon tutori- 
al for calculating a2 + b2: 


:formulal { a b -- solution } 
Va ee 

b b * 

a aes 


The input parameters are named be- 
tween the braces, and are pulled off 
the stack and stored in the local vari- 
ables a and b. The arrow (—) stores 
the value on the stack into the named 
parameter. Local variables may also 
be defined within the braces by pre- 
ceding the variable list with a back- 
slash. Again, from the Neon tutorial, 
consider the formula (a+b-3c)/ 
(b + 3c): 


-formula2 {abc \numden -- result } 
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PRIME FEATURES 


¢ Execute DOS level commands 
in HS/FORTH, or execute DOS 
and BIOS functions directly. 
Execute other programs under 
HS/FORTH supervision. 
(editors debuggers file managers etc) 
¢ Use our editor or your own. 
° Save environment any time 
as .COM or .EXeE file. 
© Eliminate headers, reclaim 
space without recompiling. 
e Trace and decompile. 
¢ Deferred definition, 
execution vectors, case, 
interrupt handlers. 


FORTH 


® Full 8087 high level support. 
Full range transcendentals 
(tan sin cos arctan logs exponentials) 
® Data type conversion and 
|/O parse/format to 18 
digits plus exponent. 
* Complete Assembler 
for 8088, 80186, and 8087. 
¢ String functions - 
(LEFT RIGHT MID LOC COMP 
XCHG JOIN) 
Graphics & Music 
Includes Forth-79 and Forth-83 
File and/or Screen interfaces 
Segment Management 
Full megabyte - programs or data 
Fully Optimized & Tested for: 
IBM-PC XT AT and JR 
COMPAQ and TANDY 1000 & 2000 
(Runs on all true MSDOS 
compatibles!) 
¢ Compare 
BYTE Sieve Benchmark jan 83 
HS/FORTH 47 sec BASIC 2000 sec 
with AUTO-OPT 9 sec Assembler 5 sec 
other Forths (mostly 64k) 55-140 sec 
FASTEST FORTH SYSTEM 
AVAILABLE. 
TWICE AS FAST AS OTHER 


FULL MEGABYTE FORTHS! 
(TEN TIMES FASTER WHEN USING AUTO-OPT!) 


HS/FORTH, complete system only: $270. 


“a. Visa Mastercard @® 


HARVARD 
SOFTWORKS 


P.O. BOX 69 
SPRINGBORO, OH 45066 
(513) 748-0390 
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abe a = num 
330 =e den 
num den /; 


The numerator and denominator are 
calculated separately, stored in local 
variables, and then the formula is cal- 
culated. With local variables and 
named parameters, Neon programs 
are downright readable. 


Summary 

Neon is nicely designed. It is clear 
that the developers had an excellent 
understanding of what object-orient- 
ed programming is supposed to be. 
With the basic classes, examples, and 
tutorial, you could be writing inter- 
esting programs that support the 
Macintosh User Interface Standard 
in a matter of weeks. This compares 
very favorably with the months that 
most people take to build the support 
routines that a real application re- 
quires. Kriya is also planning to sup- 
port a clearinghouse service for use- 
ful, public domain classes written in 
Neon for use by software developers. 

Neon is also a good programming 
language for occasional use, though 
it has so many features and is so flexi- 
ble that it could take a little while to 
learn what is provided in the system. 
The documentation is thorough and 
well-written, and the tutorial is inter- 
esting and useful. 

As a programming environment, 
Neon is very well suited to the Mac- 
intosh. The built-in classes are well 
designed and useful, and provide a 
much improved interface to the Mac- 
intosh Toolbox routines. It is flexible, 
powerful, fast and a lot of fun. It is 
also the only implementation of an 
object-oriented system for the Mac- 
intosh so far. Because of the support 
for classes and objects, organization 
of large programs would be quite 
manageable, while with standard 
Forth working on a large system with 
thousands of words might become 
confusing. The only disadvantage 
that Neon has, in my opinion, is the 
backwards Forth syntax. If some- 
body comes up with a new infix 
parser-scanner to allow Smalltalk- 
like expressions, Neon could be a real 
winner in the programming language 
sweepstakes. 


MacFORTH Level 1, 
Version 1.2; Level 2, 
Version 2.1; Level 3, 
Version 3.0 

Company: Creative Solutions, Inc. 
4701 Randolph Rd, Ste. 12 
Rockville, MD 20852 
(301) 984-0262 

Computer: Apple Macintosh 
(128K) 

Price: Level 1—$149, Level 2— 
$249 (includes Level 1), 
Level 3—$499 (includes 
Levels 1 and 2) 

(Circle Reader Service No. 103) 

Reviewed by Alan Clute 


The Macintosh is a giant toolkit. An 
ideal language to take advantage of 
this toolkit is Forth. MacFORTH, 
from Creative Solutions, Inc., is an 
excellent Forth for the Macintosh. 
MacFORTH delivers the richness and 
power of the Macintosh without get- 
ting overly complex. The package, 
while being simple to use, still leaves 
the programmer enough breathing 
room to develop programs that are 
powerful and make good use of the 
Mac’s capabilities. 

MacFORTH is a production lan- 
guage. Current products written in 
MacFORTH include PeachTree’s 
Back to Basics Accounting, Brain- 
works’ ChipWits, and Ideaform’s 
MacLabeler. An interesting new 
product is CSI’s StudioMac, a music 
program that incluaes tutorials, 
source code, MIDI interface capabili- 
ty, and complete plans to build an in- 
expensive MIDI interface for the 
Macintosh. 


Contents of Package 
Table 1 (see page 101) shows the 
main contents of each level of Mac- 
FORTH. The three levels are nested, 
and upgrades are available for the 
difference in list price. Because Level 
2 includes more and is in some ways 
easier to work with than Level 1, it is 
probably the best package to get first, 
especially at mail-order prices. For 
the record, this review concerns itself 
with Versions 1.2, 2.1, kernel 2.3, 
and, briefly, with Level 3 version 3.0. 
MacFORTH has been around a 
fairly long time, as Macintosh soft- 
ware goes. Level | was first released in 


Dr. Dobb’s Journal, October 1985 


April of 1984, with the first version of 
Level 2 coming out in July of that 
year. MacFORTH was the first seri- 
ous native language for the Macin- 
tosh. It makes good use of a 128K 
Macintosh and can be used with only 
one disk drive (if you are so inclined). 
MacFORTH is not copy protected, 
so it can easily be backed up or in- 
stalled on a hard disk. The accompa- 
nying license agreement says in no un- 
certain terms that you should not give 
_or sell copies to others, but CSI is to be 
congratulated for not otherwise inter- 
fering with your use of the program. 


Forth Implementation 
MacFORTH is derived from the 
Forth-79 standard, optimized for the 
Macintosh environment. It is a 32-bit 
Forth, which is more suitable for the 
large address space of the Mac than 
16-bit implementations. Considered 
just as Forth, MacFORTH is a good 
one. Converting programs from an- 
other standard version of Forth 
should be rather straightforward. 
The internal implementation is di- 
rect threaded with a token table to 
keep all word references to 16 bits. 
Thus, program code requires about 
the same amount of dictionary space 
as in a 16-bit version of Forth. Vari- 
ables occupy 32 bits. Fetch and store 
operators come in several flavors to 
support 8, 16, or 32 bit values. 
MacFORTH uses traditional Forth 
blocks for source code, but these 
blocks are within block files. Mac- 
FORTH thus lives very comfortably 
within the Macintosh environment. 
Programs can do disk I/O using 


block files, or can choose to use data 


files with text, fixed-length record, or 
byte-addressable virtual formats. 
The entire storage-management vo- 
cabulary includes about 90 words. 


Documentation 

MacFORTH is extremely well docu- 
mented. Most of the documentation 
covers the Macintosh interface, but 
then, most of the Forth is quite stan- 
dard. The level 1 manual is about 160 
pages, plus glossary and appendices. 
Level 2 runs over 200 pages, plus 
glossary, and Level 3 adds 200 more 
pages, which show you step by step 
how to turn a running program into a 
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production disk. 

The manuals make clear presenta- 
tions. The glossaries are well orga- 
nized, well indexed, and well written. 
The only thing obviously missing is a 
reference in each glossary entry to 
the page where the word is discussed 
in context. 

MacFORTH pretty much assumes 
you know Forth, although it comes 
with a Forth tutorial and a rich set of 
examples that would prove useful 
even to a beginner. As is often ad- 
vised, the beginner really should arm 
him/herself with some instructional 
book like Starting FORTH or Think- 
ing FORTH by Leo Brodie (Prentice- 
Hall, 1981 and 1984) instead of rely- 










Feature 





30ing FORTH tutorial. 
lock-oriented editor 
, cintosh interface 


_ + Printer/Serial 
~~ ~=ietece 
_ «Programming aids 









_ «Source code 


evel 1 included - 


4 
stem tools 
: dvanced graphics 
a bevel 2 jaclided 


_» Application 
workshop — 


« Resource workshop 


« Kernel workshop 


ing on a language manual.’ In 
addition, a new book should be out by 
the time you read this, MacFORTH: 
Programming for the Rest of Us by 
Dave Colburn, one of the authors of 
MacFORTH (also available from 
CSP). 

The Going Forth tutorial, a split- 
screen affair with paged text on one 
side and the live MacFORTH system 
on the other, provides a hands-on in- 
troduction to MacFORTH. Source is 
on disk for those who want to expand 
the tutorial for others. 

You get plenty of source code with 
these packages, both “real-world”’ 
stuff, like the block editor, and “tu- 
torial” material like the Note Card 





Comments 


Disk based. interactive. 


7 Similar to MacWrite. 


Menus, windows, mouse, sound, 
event handler. 

Text, record, virtual, and 
block files. MacWrite text files. 

Window or screen output, full 
serial |/O. 


_ Trace, debug, error traps, direct 


calls to toolbox routines. 

Forth extensions, editor, many 
examples, terminal program, 
download conversion, standard — 


file-open dialogue. 








‘Heap management, 68000 assembler, 
snapshot (vocabulary save). 
Polygons, regions, pictures, 
rectangle arithmetic and 
_ scrolling. _ 
TextRecords and FexiFiclds 
Buttons, boxes, and scroll bars. 
Read and write from/to clipboard 
IEEE-754 standard 


_ Graphics demo, note card data 


management demo (fully annotated 
in manual), many examples, 
source for above extensions. | 


Turnkey production tools and 
tutorial. Supports 512K 
Mac, overlays on 128K Mac. 

Macintosh resource customization 
and tutorial. 

Forth kernel customization and — 
tutorial. 


Table 1: 
_ Contents of MacrontH Levels 
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example. This last is part of Level 2 
and includes 23 screens of source and 
20 pages of detailed manual text. In 
all, Level 1 includes about 120 
screens of source, and level 2 about 
140 screens. 


Forth and the Macintosh 

Forth has been described as a lan- 
guage for the development of prob- 
lem-oriented languages. MacFORTH 
is a Macintosh-oriented language. 
The “problems” of the Macintosh— 
how to use windows, pull-down 
menus, graphics, and other fea- 
tures—have been smoothly ad- 
dressed by MacFORTH. 


(create window) ~— 
15 CONSTANT testWindow | 
NEW .WINDOW testWindow — 


( define title ) : 
“Example Window” ee 

( define rectangle} _ 
50 50 100 300 | 
(add boxes |] 
CLOST. BOX SIZE. BOX. : 










nego 


The MacFORTH vocabulary is 
huge, over 900 words in Level | with 
another 250 or so added in Level 2. 
Most of these are the “‘application 
words” that give you direct control 
over the Macintosh. The Macintosh 
and its fabled toolbox are made di- 
rectly available, letting you do things 
“the Macintosh way” with relative 
ease. Don’t be intimidated by the 
large vocabulary: flexibility comes 
from lots of little words, rather than a 
few large ones, and the Macintosh 
has many of these small units. The 
window-handling package alone has 
over 70 words associated with it. 


testWindow W.TITLE 
‘testWindow W. BOUNDS 


testWindow W. ATTRIBUTES = : 


(add window to the screen ) - 


testWindow ADD. WINDOW — 


Figure 1 


| Code to _ reate Window 





a create 1 menu, define tle) 
11 CONSTANT testMenu 
0 “ Example” testMenu NEW.MENU 
( define item text ) 
” First;Second;Third(;” 
(add menu to the s screen » 
DRAW. — BAR . 






( define menu handler ) 
testMenu MENU.SELECTION: _ 


( CASE statement for items ) 


CASE 1 OF FirstProgram ENDOF 


testMenu APPEND.ITEMS 


Fee 2 


“Menu Definition — 


2 OF SecondProgram ENDOF 


ENDCASE 
(turn off title hilite 1 
O HILITE. MENU : 


3 OF Tere rearenn ENDOF 


Figure 3 


_ Selection of Menu Item 
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| 


Examples 

Straightforward use of windows and 
pull-down menus, for example, turns 
out to be simplicity itself. The code in 
Figure 1 (at left) creates a window 
with a close box and a size box. Fig- 
ure 2 (at left) shows an example 
menu definition, with 3 items. The 


first two are “active” and the third is 


“inactive” (grayed out and incapable 
of being selected). The trailing ( in 
Third( causes that item to be inactive. 
Type style (bold, underline, etc.) and 
command key equivalents are easily 
assigned using other character suffix- 
es. Selection of a menu item is easily 
linked to the proper actions using a 
defining word (Figure 3, at left). 
Fancier uses of scrollbars, control 
buttons, and the like are implement- 
ed with the clarity and simplicity so 
essential to good Forth style. 

The Level 2 manual includes a ref- 
erence section giving the Pascal 
name, MacFORTH name, and stack 
usage for the over 150 toolbox traps 
directly callable by the user. For ad- 
vanced applications, MacFORTH 
provides simple low-level words to ac- 
cess any toolbox routine. 


Support 

CSI maintains a technical hotline for 
owners of Level | and Level 2, and 
publishes a quarterly newsletter. The 
hotline is open during business hours 
and is a normal toll call. 

An important part of the Mac- 
FORTH “safety net” is the Special 
Interest Group (SIG) on Compu- 
Serve. This is currently open to regis- 
tered owners of MacFORTH only, 
and according to CSI about 10% of 
MacFORTH owners participate. As 
with most such SIGs, this one offers 
data libraries with public domain 
software written in MacFORTH. One 
data library is devoted to notices and 
patches for known bugs. A terminal 
program (with source code) is includ- 
ed on the Level | disk. 


User Interface 

You would expect a first-class Macin- 
tosh toolkit implementation to make 
very good use of the Macintosh, and, 
for the most part, MacFORTH does 
just that. Windows and menus for the 
MacFORTH environment are stan- 
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dard Macintosh. The text editor in- 
cluded in Level | is a subset of 
MacWrite, with source on disk if you 
want to study it or add features. 

MacFORTH is so Mac oriented 
that rough spots in the user interface 
come as a bit of a shock. For example, 
the Forth text interpreter is plain va- 
nilla Forth and doesn’t seem to know 
about mousing around. Keystrokes 
just sort of lie there on the screen, and 
to edit a mistake you have to back up 
and retype. Gasp! Fortunately the 
CompuServe SIG comes to the rescue 
here with a handy little utility that 
stores the last ten commands, in edit- 
able form, in a pull-down menu. 
Nothing like a user’s group to rescue 
one from primitive conditions. 

Another minor annoyance is that 
text in the MacFORTH window is not 
restored after being overlaid by the 
editor window. When you exit the 
editor you are left with a blank rect- 
angle chopped out of your dialogue 
with MacFORTH. This conserves 
memory, but is tacky. Those of you 
with 512K Macs will want to add 
screen save/restore to the editor with 
a few lines of code. 


Developer Package, Level 3 

I was only able to look at the manual 
for Level 3. This package is for devel- 
opers who want to produce turnkey 
products for distribution. CSI used to 
charge a per-copy royalty, but the 
new Level 3 package replaces that 
policy and includes a royalty-free li- 
cense agreement. 

The Level 3 manual provides some 
excellent tutorial material and seems 
to be as concerned with helping you 
turn out a good stand-alone product 
as the Level | is with helping you 
make good use of the Macintosh. 

The support situation is a bit dif- 
ferent for Level 3. CSI is understand- 
ably wary of spending a lot of time on 
the phone with developers, so Level 3 
owners are expected to use the Com- 
puServe SIG instead of the CSI hot- 
line when they need help. In practice, 
this seems to work out fine, to judge 
from the message traffic on the SIG 
(which includes heavy participation 
by CSI staff). If you are planning to 
use MacFORTH to develop a turnkey 
_ product or program for distribution, 
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you might buy Level 2, use the hot- 
line and the SIG while learning Mac- 
FORTH and during program develop- 
ment, and then upgrade to Level 3 
when you are in the final stages. 


Conclusion 

It is clear that the authors of Mac- 
FORTH want you to get your hands 
on the Macintosh and use it well. The 
manuals, samples, and examples all 
support this “Power to the People” 
approach. Most of the manual is 
about how to use the Macintosh with 
the tools provided by MacFORTH. 
The result is that, for the most part, 
you don’t have to spend hours or days 


poring over Inside Macintosh to get 
the Macintosh to do something, but 
can instead learn by example and 
hands-on experimentation. Because 
it is so easy to try things in Forth, 
using it on the Mac should lead to 
even greater reduction of program 
development time than would using 
Forth on a more limited machine. 


DD) 


How much time can 





you buy for $4995? 





You know what your time is worth, but MA'TIS users 
know that they save long hours everyday in 
developing an attractive and efficient user interface 
for their programs. 


MATIS is a DOS extension consisting of assembler routines with 
the interfaces to BASIC, C, PASCAL, and ASSEMBLER. 


If you think you spend too much time: 


[| Creating Windows LJ] Defining large Virtual Screens 
[|] Formatting Input Fields (LJ Scrolling in four directions 
[] Setting independent Video Attributes [J Controlling 
Keyboard input at run-time [LJ Drawing lines and boxes 
[|] Printing and maintaining your screens. 


Buy yourself a well deserved rest! 
With a copy of MATIS for only *49.95 


NEW! 


MATIS/T™ for Turbo-Pascal only $29.95! 
Same features as the original MATIS. An 
indispensable add-on at a dynamite price. 


ORDER BY MAIL—WRITE OR CALL FOR COMPLETE DESCRIPTION 
No License Fee 


Softway, Inc. 


500 Sutter Street * Suite 222-Ke San Francisco, CA 94102 
(415) 397-4666 


Credit Card Orders Only, Call 7 days a week, 
24 hours aday (800) 227-2400 Ext. 989 


*ADD $5.00 FORSHPG CARES. ADD SALES TAX 
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To order, send this order form with your payment to: Dr. Dobb’s Journal, 
2464 Embarcadero Way, Palo Alto, CA 94303 


QTY. 


BOOKS 
Dr. Dobb’s ‘Toolbook* 


Small-C Handbook 


$29,990 OK = 

Check Format 

MS or 

CP/M | PC DOS 
DISKS 


aS 
Small-C Compiler ay $19.95 " 


Small Tools Text Processor ied eaten $19.95). 2S a4 


Small Mac Assembler = 








(for CP/M only) xX 
MANUALS 

Small-C Compiler 

MSPC-DOS specific addendum to 

The Small-C Handbook $4.95 xX ~ 


(NOTE: The Small-C Handbook provides 
full documentation for the CP/M version) 


Small Tools 
Small Mac 


to ee ee 
eRe Gg 


Sub Total | $ 
California residents add applicable sales tax ‘Tax 


Add $1.75 per item for shipping in U.S., 
$4.25 per item outside U.S. 


Shipping 
TOTAL $ 
For CP/M system disks only, please specify one of the following formats: 
[_] Kaypro 
[_] Apple 
[_] Zenith Z-O00 DS/DD 
[_] Osborne 
[_] 8” SS/SD 


[_] Inquire about other formats 


PAYMENT MUST ACCOMPANY YOUR ORDER 
[_] Check enclosed 
[_] Please charge my 
Card # 
Exp. Dat 


[] VISA 


[ ]M/C [_] Amer. Exp. 


Signatur 


Be aR i ee tt enh acs egy ei mi eR hela le a an cals isa Sigler 


a a as he ee eg ee 
(please use street address) 

City 

Cae) Ss ke 

Allow 6-12 Weeks for delivery 
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MAC TOOLBOX 





Last month (September 1985, #107 page 94) John Bass described how to put together your own hard-disk interface for the Macintosh 
for less than $500. The following listing, np_dvr.c, is the driver routine. 


Mac Toolbox Listing 


/* 
* np dvr.c version 1.8,cJnly 20,1985 
* MacSCSI non-partitioned driver routine. 
* This version was based on ’~e ramdisk.asm example found in 
* Aztec C 1.86 and was developed on the Mac under Aztec C, 
* 
* The changes are Copyright 1985 by John L. Bass, DMS Design 
* PO Box 1456, Cupertino, CA 95914 
* Right to use, copy, and modify this code is granted for 
* personal non-commercial use, provided that this copyright 
* disclosure remains on ALL copies. Any other use, reproduction, 
* or distribution requires the written consent of the author. 
* 
* Sources are available on diskette from Fastime, PO Box 12588 
* San Luis Obispo, Ca 93486 -- (885) 546-9141, Write for ordering 
* information on this and other Mac products. 
ay 
#asm 
::ts=8 
a 
DRVNUM equ 2 ;change this if conflicts with others 
; 
Start 
dc.w S4£ O00 slocked, read, write, ctrl, status 
dc.w g ;no delay 
dc.w g 7no events 
dc.w Gg 7no menu 
dc.w open-Start ;Open routine 
dc.w rdwrt-Start ;prime routine 
dc.w control-Start ;control routine 
dc.w status-Start ;status routine 
dc.w tst-Start close routine 
acab 8 
dce.b ",MacSCSI" sname of driver 
ds g ;for alignment 
e 
MAXMAP equ 649 
f 
drBlLen equ 16 
drNmA1Blks equ 18 
drA1BlkSiz equ 29 
drClpSiz equ 24 
drAlBlSt equ 28 
drFreeBks equ 34 
a 
template 
dc.w $d2da7 7;Ssignature word 
GCel g sinit time 
dc. Q ;backup time 
dc.w 4) gattributes 
dc.w 8 7# of files 
dc.w 4 sfirst dir block 
dc.w g 7# of dir blocks 
dc.w 8 7# Of allocation blocks total 
dc.1 6 ;bytes/allocation block 
106 
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dce.l Bg sbytes/allocation call 
dc.w 4 sfirst data block 
gC... 4 enext free file # 
dc.w g °# of unused allocation blocks 
de~wb 7 slength of name 
dc.b "“MacSCSI" sname of drive 
ds Gg :for alignment 
stabuf 
dc.w 9 scurrent track 
gc. Qg swrite protect in bit 7 
o¢.D a sdisk in place 
d¢.b 1 s;drive installed 
de.b g s;sidedness of drive 
desi 9g snext queue entry 
dc.w 8 sunused 
dc.w DRVNUM :drive number 
drvref dc.w B driver ref num 
dc.w 8 ;file system ID 
dc.b 9 ssidedness of disk 
d¢e.b GB gyneeds flush flag 
dc.w 8g serror count 
diskbase_ 
GC,2 g sbase of disk memory 
; 
openflg 
dc.w 4) sonce only open flag 
a 
open 
lea openflg,a@ sget once only flag 


tst.w (a) sis it open already? 


(Continued on next page) 





SOFTWARE DEVELOPERS 


Save thousands of dollars! Save hundreds of hours! 
by using our assembly language sub-systems 


B-TREE SUB-ROUTINES 


Internationally Known and used in many best selling application programs . . . Rapid access and maintenance 
of large files with fixed-length records . . . Versions available for CP/M-80, CP/M-86, MP/MII, MS DOS, PC DOS, 
Microsoft BASIC(s), COBOL, FORTRAN, PASCAL, PL/I, CBASIC, CB80, CB86, CBASIC, CBASIC 86, LATTICE C. 


RETAILS FOR $150 DEALER/OEM PRICES AVAILABLE 

Expanded version of our FABS products. . . Up to millions of records DEP on Key Size. . . Extremely fast on unlimited 
number of keys . . . Re-indexing program included . . . Can be used on files as large as your system can hold. 
RETAILS FOR $195 DEALER/OEM PRICES AVAILABLE 


SORT/MERGE SUB-ROUTINES 


Optimized for very large files; stand-alone or callable sub-routine, extremely fast. . . Versions available for CP/M 80, 


CP/M 86, MP/MII, MS DOS, PC DOS running Microsoft BASIC(s), FORTRAN, PASCAL, CBASIC, CBASIC 86, CB80, 
CB 86, LATTICE C. 


FABS 


FABS PLUS 


AUTOSORT 


RETAILS FOR $150 DEALER/OEM PRICES AVAILABLE 


DATA, SCREEN, REPORT MANAGER 


A highly capable DATA BASE package designed to perform for everyone from the novice user in the Stand-Alone 
mode to the professional programmer in the Run-Time mode. . . Creates files, forms, reports, handles screening . . . 
B-Tree Indexing, high speed sorting capabilities . . . Run-Time mode use with BASIC INTERPRETER/COMPILER. . . 
For MS DOS, PC DOS on IBM PC/XT, DEC Rainbow, Victor $000, Sanyo, Fujitsu, etc. 


RETAILS FOR $295 DEALER/OEM PRICES AVAILABLE 


DB-FABS 


For more detailed information concerning any of our products, please contact us: 


COMPUTER CONTROL SYSTEMS, INC 
Route 3, Box 168, Lake City, FL 32055 (904) 752-0912 
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Mac Toolbox Listing 


bne 


(Listing continued, text begins on page 94 of September Issue) 


skip eyes -—— FUSE exit 
st (a@) yset once only flag 
move.l #14,d8 7size of drive queue entry 
dc.w Sa5le ;NewPtr - system heap 
clr.w 18 (a@) zylocal file system 
move.l #DRVNUM,dd ;drive number 5 
swap ag 
move.w 24(al),d9 ;driver reference number 
lea drvref,a2 ;get address of driver reference number 
move.w dQ, (a2) ;set up status buffer 
dc.w Sa@4e ;AddDriver 
move.l (al),-(sp) ;push handle to resource 
dc.w $a992 ;DetachResource 
link a6,#-58 sallocat the block on the stack 
move.l sp,aQ ;setup as arg to mountvol trap 
move.w #DRVNUM,22(a8) +:set our drive number in block 
dc.w SaOOE sask for it to be mounted 
unlk a6 s:clear block from stack 
skip 
move.l #0,d@ sset non-error return 
rts -exit back to caller 
; 
rdwrt 


movem.1 d#@-d7/a8-a6,-(sp) ;Ssave regs 





Time and Money. 


We've just done something we know you'll like. 
We've made the SemiDisk far more affordable than 
ever before. With price cuts over 25% for most of 
our product line. Even our new 2 megabyte units 
are included. 


Battery Backup, Too 


At 0.7 amps per 2 megabytes, SemiDisk consumes 
far less power than the competition. And you don’t 
have to worry if the lights go out. The battery 
backup option gives you 5-10 hours of data 
protection during a blackout. Nobody else has this 


rtant feature. Why risk valuable data? 
SemiDisk Systems builds fast disk emulators for Pe NT ee Peers 


more microcomputers than anyone else. S-100, The Best News 
IBM-PC, Epson QX-10, TRS-80 Models II, 12, and 16. 512K 


It’s Expandable 


IMbyte  2Mbyte 
You can start with as little as 512K bytes, and later seminisk I, S-100 $695 $1395 

upgrade to 2 megabytes per board...at your own SemiDisk II, S-100 $995 $1995 
pace, as your needs expand. Up to 8 megabytes per —« [BM PC, XT, AT $595 $1795 
computer, using only four bus slots, max! Software Qx-10 $595 $1795 
drivers are available for CP/M 80, MS-DOS, ZDOS, _ Trs-go0 II, 12,16 $695 $1795 
TurboDOS, VALDOCS 2, and Cromix. SemiDisk Battery Backup Unit $150 $150 $150 


turns good computers into great computers. 


SEMIDISK 


SemiDisk Systems, Inc., P.O. Box GG, Beaverton, Oregon 97075 503-642-3100 


Call 503-646-5510 for CBBS/NW. 503-775-4838 for CBBS/PCS, and 503-649-8327 for CBBS/Aloha, all SemiDisk equipped computer bulletin boards ( 300/1200 baud) SemiDisk. SemiSpool trademarks of SemiDisk Systems. 


Someday you'll get a SemiDisk. 
Until then, you’ll just have to....wait. 
a === 
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a neneeretiey 





jSr ScsiRdwWr_ 
movem.l (sp)+,d9-d7/a8-a6 
bra tst 
control 
cmp.W #1,26(aB) 
bne.s tst 7no, 
move.l #98,d8 
rts 
status 
cmp.w #8,26 (ad) 
bne.s tst 
movem.l a@/al,-(sp) 
lea 28(a@),al 
lea stabuf,a@ 
move.l #22,d0 
dc.w Sa®2e 
movem.l (sp)+,a@/al 
‘ 
tst 
move.l #9,d@ 
movem.l1 d4-d7/a4-a6,-(sp) 
move.l S8fc,a¥ 
jsr (a®) 
movem.l1 (sp)+,d4-d7/a4-a6 
rts 
public _Uend_,_Dorg_,_Cend_ 
save_ 
lea 


The Complete and Comprehensive Intelliware™ 
Laboratory for Expert System Concepts on the 
IBM Personal Computer. 


te 


Experteach Includes: 


Experteach is a comprehensive guide to Expert System 
. . technology consisting of a uniquely integrated collection of 
¢ Comprehensive Introduction Expert System tutorials, case studies, on-line teaching pro- 
to Expert System Concepts. —_ grams, Expert System building tools with source code and 
@ On-line Tutorial Describing Artificial Intelligence languages. Experteach is based on 
: extensive experience in teaching Expert System concepts in 
es so of Expert association with IEEE, ACM and the Continuing Educa- 
ystems. tion Institute. 
¢ Lisp Based Expert System Experteach introduces you to Expert System technology 
Tools with Source Code. by allowing you to build Expert Systems and to experiment 
with a variety of Artificial Intelligence tools and languages 
e Prolog Based Expert System on the aM. ‘ oe 
Tools with Source Code. 


Experteach includes eight rule-based Expert System 
shells with source code implemented in Lisp, Prolog, 
dBASE II and Pascal. Each language has been used to im- 
plement both a forward chaining and a backward chaining 
Expert System shell with a built-in rule editor, inexact in- 
ference and how & why explanation facilities. 

Experteach includes a comprehensive Lisp interpreter 
and a complete Prolog interpreter with DEC-10 Prolog 
syntax. Experteach requires only 256K of memory. 


e dBASE II™ Based Expert 
System Tools with Source 
Code. 


© Pascal Based Expert System 
Tools with Source Code. 


© Complete Lisp Interpreter for 


ere Intelli I 4676 Admiralty Way Suite 401 
© Complete Prolog Interpreter mee 5 Geert: ralty Way Suite 
for the IBM PC. Marina del Rey, CA 90291 (213) 827-1334 


CJIntroduction to Expert System Concepts, On-line 
Tutorial, Case Studies, Bibliography and Pascal Based 
Tools $99.00. 

CLisp, Prolog or dBASE II Based Tools $99.00 each. 

(JComplete Experteach System with Lisp and Prolog 

on Expert Systems. Interpreters. $475.00 Check, Money order,Visa or 

Mastercard. $9.00 for postage and handling. California, 


Intelliware, INC. 65% ux. 


Experteach and Intelliware are trademards of Intelliware. Inc. IBM PC is a registered trademark of IBM. dBASE Il IS A TRADEMARK OF Ashton-Tate 


e Comprehensive Case Studies 
of Several Major Expert 
Systems. 


© Comprehensive bibliography 
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*Call the C stuff 
srestore regs 
s;exit via IOdone 


exit 


sis it KillIo 


:just return 


sis it status request?? 


;save regs 
sget dest address 


smove 22 bytes 
:;BlockMove 
gsrestore regs 


;Okay return 

ssave regs going into IOdone 
sget IOdone address 

;call IOdone 

srestore them after IOdone 
sand jump to it 


Start+(_Uend_—~_Dorg_)+(_Cend_-Start) ,a4 


c 
a 


setup baseadr 


(Continued on next page) 


A Professional Quality Z80/8080/8085 Disassembler 


WHEN YOU NEED SOURCE FOR YOUR CODE 
you need REVAS 3 


REVAS interactively helps you: 


Analyse your software for modification 
disassemble files as large as 64K 

Assign Real labels in the disassembly 
Insert COMMENTS in the disassembly 
Generate a Cross Reference (XREF) listing 


A 60 page manual shows how the powerful REVAS 
command set gives you instant control over I/O to files, 
printer, or console; how to do a disassembly; and even 
how the disassembler works! You get on line help, your 
choice of assembler mnemonics, control of data 
interpretation, and calculation in any number base! 


REVAS runs in Z80 CPM computers; is available on 
8’’ SSSD (standard), RAINBOW, and other (ask) formats 


Price: $90.00 (plus applicable tax), Manual only: $15.00 


REVASCO 
6032 Chariton Ave., Los Angeles, CA 90056 
Voice: (213)649-3575 Modem: (213)670-9465 
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Ma C loolbox Lis t ing (Listing continued, text begins on page 94 of September Issue) 


move.l a%,Pbp_ 


move.l al,Dp_ ;save arguments 
rts 

restore_ 
move.l Dp_,al ? pass DCEptr 
rts 

#endasm 

#include <memory.h> 

#include <resource.h> 

#include <desk.h> 

#include <pb.h> 


/* 
* varibles used by asm routines 
* Dp and Pbp are device driver arguments handled by save/restore 
* ptr and dvrarg needed by AddDriver call 


— 


DCEPtr Dp}; 
ParmBlkPtr Pbp}; 


/* 
* Local Stuff 


int DvrState; 





Introducing SMK™, the 


SEIDL MAKE UTILITY 


ee teat eee Fees piers SMK is an automatic software product generation utility for 
ntroducing the first co-resident editor assembler for the amily. ™ _ : i 
TURBO EDITASM (TASM) is significantly faster and easier to use than the IBM MS™-DOS. With MK, you can update and track pind module in 
Macro-Assembler (MASM). Whether you are new to assembly language and want your program. When changes are made to any module, SMK will 
to quickly write a small assembly language routine, or are an experienced MASM recompile or reassemble changed modules and modules effected by 
user tired of waiting months to assemble large files, TURBO EDITASM will bring the changes and relink the modules in the proper order. SMK will 
th it t back t ly | ; : ; : 

ee eee es work with any compiler, assembler and linker. 


TURBO EDITASM 








TURBO EDITASM |S MUCH FASTER: 


vanced SMK Features Include: 
¢ How fast is TASM? The graph below shows relative assembly times for a 48K Advance 


source file. For large files like this we blow MASM's doors off at 3 times their Proprietary dependency algorithm analyzes a// dependencies 
speed. For smaller 8K files we positively vaporize them at 6 times their speed. before rebuilding any files. 
eli oo SMK understands complicated dependencies involving nested 
¢ TURBO EDITASM is faster for the following reasons: (1) Written entirely in include files, SOUICE, and object code libraries. 
assembly language (unlike MASM). (2) Editor, assembler and source file always in High-level dependency definition language makes setting up 
memory so you can go instantly from editing to assembling and back. (3) Elimi- j j 
nates the time needed to LINK programs. Executable COM files can be created eee peer. eens sy 
directly. (Also creates OBJ files compatible with the IBM linker). variab es, constants, Include Iles, Command liné parameters, 
TURBO EDITASM IS EASIER TO USE: line and block comments. 
TASM includes many other features to make your programming simpler. Batch source code editor that allows automatic source file 
e Listings are sent directly to screen or printer. Assemblies can be single stepped updating is included. 
and Re errr having to oo cm editor. | e Full pathname and directory support. 
e Access the built-in cross reference utility from the editor. : : s k 
full séppbrbat 466 and 2a6 teal Mode) instractiona. e Typeset user’s manual and excellent error diagnostics make 
¢ Both Microsoft and 8087 floating point formats are supported. 8087 and 287 SMK Gasy to learn and Easy to use. 
instructions supported directly without macros for faster assembly. . 
¢ Calculator mode: Do math in any radix even using symbols from the symbol table. SMK Introductory Price 
¢ Direct to memory assembly feature lets you test execute your code from editor. Save 40% at $84.00 


© Coming soon: A coordinated symbolic debugger. 


COMPATIBILITY: TASM is source code compatible with MASM and supports 
macros, records and structures. 


SMK List Price (effective Jan. 86): $140.00 
(include $3.50 postage & handling) 


Introductory Price $49 handling. California residents SEIDL COMPUTER ENGINEERING 


Include $5.00 shipping and 


Se en Fax. 1163 E. Ogden Ave., Suite 705-171 
With .OBJ Capability $99 Dealer inquires welcome Napenille IL 60540 
916-988-7426 ‘ 
a ante a (312) 983-5477 
Speedware dati CA 95620 Pe 
IBM, Microsoft trademarks of IBM Corp., Microsoft Corp. 





Circle no. 114 on reader service card. 
110 Circle no. 59 on reader service card. 


Dr. Dobb’s Journal, October 1985 





* 
* ScsiRdWr -- do a driver read/write function. 
* 
ScsiRdwr() { 
register struct ioParam *ip; 


long len,part; 
short blkno; 
char *addr; 
save ()}; 


ip = & Pbp->u.iop; 
part = Dp->dCtlPosition & OxFFFFFEG®@; 
len = (ip->ioReqCount + 511) & OxFFFFFEOO; 
addr = ip->ioBuffer; 
while(len >= 512) { 
blkno = part>>9;} 
if((Pbp->ioTrap & Oxff) == 2) { 
ScsiRead(blkno, addr); 
} else { 
ScsiwWrite(blkno, addr); 


} 

len -= 512; 
addr += 512; 
part += 512; 


} 
ip->ioActCount = ip->ioReqCount; 


restore(); /* exit to I/O Done */ 


End Listings 


ST-FORTH $49 


For your IBM PC/XT/AT/PCjr 


A complete FORTH development system for 
beginners or experienced users 
# 100% FORTH-83 Standard 


= ALL source code provided 
Written entirely in FORTH & FORTH assembler 


= Powerful, fast, easy-to-use editor 
Search, locate source, edit errors 


# Extensive MS-DOS/PC-DOS interface 
Sequential & random files 


= Many more useful utilities 


# Supplied as MS-DOS .COM file 
Compatible with all versions of DOS 


# 148-page User’s Manual 
# Unconditional money-back guarantee 


* FORTH 


and Assembler for 


435802/318* 


16 bit Processing for Upgraded 6502 Systems 








Forth, Assembler, and Debugger for 


i 65 Series Processors ) 






On a VAX or PC* 






» Starlight Forth Systems 







15247 N. 35th St * 
Ke Phoenix, AZ 85032 


(602) 992—5181 







*65802 on Standard 6502 systems 


4 OR % 


*65816 Access to 640K+ with Apple and 
Checkmate Technology's New a 
MultiRam |[e and MultiRam C Boards 


*  % 
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Beginner's pkg based on Leo Brodie’s Starting FORTH 
available 


Call or write for brochure and order form. 


pe] Sunset 1954 Menalto Ave. 
Menlo Park, CA 94025 


— = Jechnology 45) 325.3680 
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C64-FORTH/79 
for the 
Commodore 64/128 
$69.95 


©C64-FORTH/79™ integrated professional development 
environment. 

@See our reviews in INFO 64, MIDNIGHT, and NY CBMUG. C64- 
FORTH/79 is Commodore Approved. 

@High performance 2D graphics extension including HRES 
multicolor line, circles, scaling, windowing, HRES character 
graphics, sprites, ram characters, 10 demo screens and more. 

@Complete CBM compatible floating point package includes 
arithmetic, relational, SIN/COS, SQR, and more. 

@ Professional, 21 command, cursor screen editor with virtual 
memory, conditional macro assembler, and debug-decompiler 
facility. 

@String extension for easy string processing. 

@Compatible with CBM _ peripherals, popular third party 
peripherals and C64 operating setup/memory configurations. 
@Easy to use 167 page manual written for the serious forth 
programmer with many examples, application screens, detailed 
command glossaries and compatible with ‘Starting Forth’, or 

“Discover Forth.” 

eSAVE TURNKEY” automatically compiles bootable turnkey 
application programs for royality free distribution. 

(Commodore 64 and CBM are trademarks of Commodore) 


TO ORDER 

-Check, money order, bank card. COD’s add $2.00. 
-Add $4.00 postage and handling in USA and Canada. 
-Mass. orders add 5% sales tax. 

-Foreign orders add 20% shipping and handling. 


PERFORMANCE MICRO PRODUCTS 


P.O; Box, 370 
Canton, MA 02021 
(617) 828-1209 
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A A Connplliie For dBASE Ill 
$600 


Write-Hand Man 
(Sidekick for CP/M) 


8” Format $49.95 5'/” Formats $54.95 


CP/M LIVES! 


A die hard CP/M house actually exists. 
We confess, we still sell, support, and use CP/M 
systems and software. Custom multiuser hardware 
and dBASE Il applications are available. 


d/MULTI 


Multiuser dBASE Il for TurboDOS 
At last! File & record locking as easy as d-BASE-II. Now 
unlimited users can perform the magic of dBASE in the 
program or interactive mode. Don't look for it anywhere 
else — A MARTIAN EXCLUSIVE! 
d/MULTI .. . $695 
Dealer inquiries encouraged 


Martian Technologies 


| 8348 Center Dr., Ste. F, LaMesa, CA 92041 
cor (619) 464-2924 
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The Magic Micro-Mainframe Data Editor 


PIK’r selectively reformats mainframe data 
without re-keying. 


PIK’r provides a full screen cut & paste envi- 
ronment, including mouse support. 


You can pick the data you want from your 
reports, in the format you’re familiar with, 
and put it all together for Lotus templates, 
dBASE, Multiplan, DIF, or word processors. 


Takes data from any ASCII text file or 
report—from mainframe, mini, or micro. 
Works on any IBM-PC or compatible. 


Review and combine several reports in one 


session, or produce several output files from 
one report. 


Edit. Merge and divide columns. Automati- 
cally clean up numbers with embedded 
commas, leading dollars, trailing CR and 
parens—also supports European and metric 
formats. Transpose rows into columns, 
columns into rows. 


$95 includes User Manual, Quick Start 
Card, full support services. Quantity and 
site discounts available. 


SAMKHYA/CORPORATION 
47 Sixth St, Suite 3000 

PO Box 142 

Petaluma, CA 94953 
707-763-2800 


Sales & Info: 800-442-0012 USA 800-442-5544 California 
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BRIEF 


‘‘BRIEF, The Programmer’s Editor, is simply 


—)> 


the best text editor you can buy.”’ 


Choosing the right program editor is an extremely 
important decision. After all, more time is spent with 
your program editor than with any other category of 
software. A good program editor helps to stimulate 
creativity and produce programs of superior design. 
A poor program editor, on the other hand, can be 
worse than none at all. It can slow you down, get in 
your way, and make even the simplest tasks difficult. 


BRIEF - PROGRAM EDITING YOUR WAY 


Every programmer has an individual style that 
makes their work unique. Most program editors com- 
promise that style by forcing the programmer to con- 
form to their methods. Not so with BRIEF. 


BRIEF’s most powerful feature is its ability to 
conform to your way of programming. BRIEF can be 
easily tailored/customized to your individual 
preferences. For example, keyboard reassignment 
allows the keyboard to be used in whatever way you 
prefer. Keystroke macros allow long sequences of 
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“A BONA FIDE UNDO”’ Steve McMahon - BYTE 
REVIEW “BUILD YOUR DREAM EDITOR” MARCH 1985 


Here are Steve McMahon's exact words: “...BRIEF 
implements a true undo facility, by default allowing 
command-by-command recovery from the last 30 
commands...The number of commands you want to 
be able to undo can be changed.” (up to 300) “Only 
with BRIEF, though, was it possible to undo a macro 
that produced 4000 words of text with a single 
keystroke.” 


EVERY FEATURE YOU WANT 
BRIEF supports practically every feature you’ve ever 
seen, and some you probably haven't thought of yet. 


e Edit Multiple Large e Repeat Keystroke 


Files Sequences 
’ e Windows (Tiled & ¢ 15 Minute Learning 
Pop-up) e Reconfigurable 
e Unlimited File Size Keyboard 
e Full UNDO (N Times) ¢ Online Help 


e True Automatic Indent ¢ Search for ‘Regular 








editor directives to be repeated by pressing a single for C ) Expressions” 
key. Plus you can simultaneously work with : ae DOS Inside . ee Key 
numerous program and data files, and configure ae ERQTEHOTHE 
many windows to control BRIEF’s visual presentation. * oe peewee pane nital-Scroning 
75% OF THE EXPERTS WHO yee Mental eco 
e Uses vai ecovery 
: ° Memory ¢ And ... a Complete, 
HAVE TRIED BRIEF SWITCHED! ¢ Intuitive Commands Compiled, Programmable 
: © Tutorial and Readable 
(Call For Details) Mace Eangaeee: 
make.c 
int handle = @; 
oe " A TYPICAL BRIEF SCREEN 
Past Sabet: See Notice there are three windows on the 
int are: . screen simultaneously and each one is 
; ane . nakefile.h viewing a different file. The mainline of a C 
| SO vennee  eee wt kefile.h: program is visible in the uppermost Window; 
makefile.h: 
pee struct = This ig the definitions fil the programmer has run a syntax checking 
ares een ee treme: 5) macro which found a mismatched open 
short action, Hopefully, it won’ t be unreasonab 
state; “# = that have been written. parenthesis in the arguments to the 
2 rt FSA id mainline. The other two windows show 
Fsa fsall[8] = {/* Al phanus Co gupedef struct cad_struct header files containing information crucial to 
. the design of the program. BRIEF can have 
he bitte i: v fo“, te = moe ee an unlimited number of windows and files 
fo srare . . g, é, 1 ; gtnuct et *next_cmd; accessed simultaneously. 
7% State 4. #/ @, 4, @, 
Mismatched open parenthesis. Line: 11 Col: 17 2:17 pm 
BRIEF’S ONLY LIMITATIONS ARE THE ONES YOU SET AVAILABILITY: eer aa on anise, 
Full refund if not satisfied in 30 days. ONLY *195 | 
FREE with order: “Best of BRIEF Macros” — Contest S i ti ”n 
entries include macros for Fortran, C, Calculator, Base Oo U lO 
Converter, etc. Call before November 30. 800-821-2492 


335-D Washington St., 





ystems" 


Norwell, MA 02061 (617) 659-1571 800-821-2492. 


*Steve McMahon's quote courtesy Suntype Publishing Systems. BYTE review by Mr. McMahon may be found in BYTE Magazine March 1985. 
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by Bob Blum 


The CP/M Exchange RCP/M system 
is available for your use 24 hours a 
day, 7 days a week. Reach it by dial- 
ing (404) 449-6588. 


My queue runneth over. It seems that 
I always have far more projects un- 
derway than I will ever have time to 
complete. My workmates character- 
ize my problem as simply not being 
able to manage my time efficiently. I 
know better, I know the real reason 
that this phenomenon constantly 
haunts me. | 

My time is being slowly pilfered 
away by the software developers who 
continue to write programs for CP/ 
M. It’s an insidious plot. What rea- 
sonable person would continue to 
support an outdated operating sys- 
tem such as CP/M and the archaic 8- 
bit microprocessors it runs on? The 
schemers know of my weakness for 
trying every new program that’s ad- 
vertised, and they use it to their best 
advantage. Some are even so bold as 
to send me their addicting wares of 
slavery without even letting me call 
to volunteer myself for human 
sacrifice. 

So, as you can see, I’m not at fault 
for falling victim to my weaknesses. 

All fun aside, more and more new 
8-bit CP/M software is being intro- 
duced each day. I applaud all of those 
who have the foresight not to aban- 
don a strong 8-bit market. By some 
standards I may be misguided, but I 
rest assured that I am in the best of 
company. 


In the Queue 

I’m anxiously waiting for my review 
copy of the latest single board com- 
puter from Micro Mint. This little 
barn burner, the size of a mini-floppy 
drive, sports the HR64180, the 
newest 8-bit chip from Hitachi. I’m 
told that this device is at least as pow- 
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erful as an 8-Mhz Z80 and offers a 
much higher level of integration, in- 
cluding I/O ports and other features 
that normally require external de- 
vices. The most exciting part is its ca- 
pability to address directly 512K of 
memory. My plans call for a review 
and then for porting CP/M Plus over 
to it, taking full advantage of all of its 
new advanced features. I think in a 
short time that a new level of perfor- 
mance will be established. 

Even though DRI has decided to 
put CP/M Plus on the mature list, 
and will no longer actively support it, 
I am continuing to port it to different 
computers. My most recent adven- 
ture is with the Intercontinental 8-bit 
S-100 master board; on-board memo- 
ry management and many other per- 
formance features make the ICM 
board a natural for CP/M Plus. 

Among the top ranking features of 
CP/M Plus is its capability to time 
and date stamp files automatically at 
each access. This feature is especially 
important to me because I have the 
untidy habit of not religiously track- 
ing my disk files during a heated de- 
velopment session. I wait for the pro- 
ject to conclude before trying to 
make good sense out of my files and 
then sometimes have trouble recall- 
ing the order in which I created them, 
and, most important, which is the 
most current. Until Plu*Perfect Sys- 
tems began to sell DateStamper there 
was no software available to add this 
desirable feature to CP/M 2.2. I’ve 
been using DateStamper for several 
weeks and have found it a most useful 
tool and safeguard. I will be review- 
ing it in a future issue of this column. 

Finally, my stack of things to do 
wouldn’t be complete without a new 
programming tool. I have been using 
DSD80, a DDT-compatible debug- 
ger with many new and useful added 
functions. It’s a very solid package 





that turns the drudgery of debugging 
into an art form. I will be reviewing it 
in the future. 


Encore, Encore 

After producing the fastest full fea- 
tured Z80 assembler, SLR Systems 
could do nothing for an encore but 
bring out the fastest fully featured 
8080 assembler. 

SLRMAC shares all the opera- 
tional features and configuration op- 
tions of its family member Z80ASM. 
A total of 32 permanently configura- 
ble options combined with 20 run- 
time command line parameters make 
for the ultimate in flexibility and ease 
of use. I found several of the configu- 
ration options to be most interesting. 

A maximum error threshold count 
can be set that automatically aborts 
the assembly when reached. This op- 
tion precludes resetting your comput- 
er or in some other way manually 
aborting an assembly if excessive er- 
rors are present. 

Another option dealing with errors 
sets a limit on the number of errors 
that can be displayed on the CRT be- 
fore the display is frozen. It’s no long- 
er necessary to sit poised to strike the 
CTL-S key combination to stop the 
CRT display in an attempt to catch a 
glimpse of an error flying by at light- 
ning speed. Instead, the display auto- 
matically stops upon reaching the set 
error count and waits for the opera- 
tor’s signal to continue. 

One other option that I particular- 
ly like is that addresses on the listing 
can be generated in either logical or- 
der, high byte first, or the normal low 
byte-high byte fashion. The mental 
step of swapping the address bytes 
slows me down as I move around in a 
program listing. 

Command line arguments allow al- 
most all of the permanent configura- 
tion options to be overridden and the 
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specification of many more options 
that are significant to an individual 
assembly. 

One particularly important option 
deals with the type of binary file that 
is output from the assembly. The H 
option directs the output file to be in 
the most common .HEX format. To 
execute a program written in this for- 
mat, of course, requires that it first be 
converted to a .COM file by process- 
ing it through the LOAD utility pro- 
gram. If the program consists of a 
single phase (all routines are self- 
contained) then another option can 
be used that will dramatically speed 
the process of converting the source 
program to an executable .COM file. 
By including the A option on the 
command line, SLRMAC will as- 
semble the program in a single pass 
through the source file and create a 
.COM output file ready for execu- 
tion. This option will also work for 
programs that contain forward refer- 
ences. It seems that SLR went the ex- 
tra mile and included forward refer- 
ence resolution logic in the assembler 
so that a single pass assembly is now 
a workable and timesaving reality. 

If you’re a modular programmer, 
as I am, then the three options deal- 
ing with relocatable output files will 
be of keen interest to you. Two are 
variations of the pseudo-standard 
Microsoft naming convention, while 
the other permits the design maxi- 
mum of seven characters to be uti- 
lized. To provide advanced features 
not otherwise available in other bina- 
ry formats, an SLR format can also 
be selected. This format is not only 
more compact than the others but it 
also provides for a full 16-character 
external name. This increased name 
size has proven to be very valuable to 
me in extremely complex systems 
containing many hundreds of individ- 
ual modules, not to mention how 
much more quickly the link editing 
Operation runs. 

The restrictions pertaining to 
statement labels found in most as- 
semblers have been removed from 
SLRMAC in most cases. It’s not at 
all uncommon in some assemblers to 
be forced to follow all labels with a 
colon. In others, the archaic practice 
of requiring that only certain types of 
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statements have labels followed by a 
colon is followed. SLRMAC doesn’t 
require that any label be followed by 
a colon except in the case where a du- 
plication exists between a reserved 
word or a macro name. In all other 
instances the use of the colon is en- 
tirely optional. One final word about 
labels in SLRMAC: a label of any 
length not exceeding the maximum 
line length of 128 characters is per- 
mitted and the beginning 16 charac- 
ters are significant. 

Many problems can occur when 
passing relocatable expressions from 
program to program. Most assem- 


blers only allow the most simple uses 
of this type of expression. For in- 
stance, when loading the external val- 
ue into a register, any type of math 
involving this type of expression is 
prohibited, which many times re- 
quires that a great deal of extra code 
be written. SLRMAC allows full ex- 
pression usage via a special relative 
data type. In this way, arithmetic op- 
erations involving multiple relocata- 
ble expressions can be resolved prop- 
erly at link editing time. But a word 
of caution is in order; the relative 
data type is only accepted by SLR’s 
own link editing program. 






or two debugging sessions. 


comments, read variables. 






4. Conditional breakpoints 


6. Convert numbers to binary 
7. ASCII chart (pop up) 


—_ 


4. Try out DOS interrupts command 
5. Pop-up Help windows 


AT86- Advanced Trace86 


DEBUG FAST! 


As a professional, your time is valuable. Advanced Trace86™ is 
designed as a debugging environment to increase productivity. 
In many situations, Advanced Trace 86™ can pay for itself in one 


Advanced Trace86" 
FEATURES 


e Trace Screen with user-configurable windows for disassembled 
code, registers, flags, the stack, the 8087 registers, and memory. 


¢ Single-step tracing with virtually unlimited back tracing. 


¢ In-line assembly capabilities, edit .EXE and .COM files in memory 
(including non-destructive line insertion for .COM files). 


¢ Symbolic debugging capabilities - read or create line labels and 


Debugger Comparison Chart - Selected Features 


Features 
1. Load Program as memory resident (like Sidekick) 
2. |BM Professional DEBUG & Periscope boards supported 
3. Keyboard break-out support- Ctrl-Enter key combo 


5. Hex/Decimal calculator & converter 


8. In-line Assembler with code insertion capability 

9. 80286/80287 support in Assembler/Disassember 

0. Protect Virtual Mode Support for 80286 

1. 8087/80287 window - registers in both decimal & hex 

12. Display memory in ASCII, byte, word, & double word 
3. Define “memory structures” for display/editing 


6. Command macros defined & saved to disk 

7. DOS TYPE, DIR, & ERASE commands 

8. Search memory for Assembler code - multiple instructions 
19. Execute/trace program in reverse & restore machine state 


Code.-Codesmith 


Requires: IBM PC or compatible, minimum 128K RAM. Retail Price - $175.00 


Morgan Computing Co., Inc. 
P.O. Box 112730 Carrollton, Texas 75Oll (214) 245-4763 





















Per.- Periscope 
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The standard program counter 
maintenance pseudo-ops are avail- 
able in SLRMAC. These include 
ORG, CESG, DSEG, ASEG, and 
COMMON, to name a few. A modi- 
fied form of COMMON is available 
to assign up to 5 additional address 
spaces that can be assigned beginning 
addresses at link editing time. This 
can be very important if the program 
being written is targeted for a ma- 
chine control environment in which 
dedicated portions of the address 
space must be defined. Again, this is 
an extension to the standard binary 
output files and as such is only avail- 
able in the SLR format relocatable 
file. 

When defining data storage areas 
it is not at all uncommon to need a 
string delimiter placed at the end of, 
for example, a console message. The 
DEFZ data definition statement will 
automatically generate a byte con- 
taining binary zeros at the end of the 
quoted string. And the DC statement 
will automatically turn bit 7 on in the 
last byte of the defined string. 

A full complement of conditional 
assembly pseudo-ops and a full mac- 
ro capability are provided. Two pseu- 
do-ops that I have found to be espe- 
cially useful are IFIDN and IFDIF. 
IFIDN tests for equality between two 
strings and sets the true condition ac- 
cording to the result. IFDIF performs 
exactly the opposite function of test- 
ing for inequality between the two 
strings and sets the true condition ac- 
cording to the result. 

The method used to process the 
MACLIB pseudo-op is unique and 
worthy of comment. Intel mnemonic 
codes were designed to be used with 
the 8080, and there is no provision 
made for the additional instructions 
available on the Z80. When the pro- 
gram is being written for the Z80 and 
full use of its instruction set is de- 
sired, the extended instruction mne- 
monics are usually added to the as- 
sembly through a macro library. This 
solves the problem, but at the expense 
of slower run time and the necessity 
to maintain another macro library. 
SLRMAC, on the other hand, direct- 
ly recognizes the extended set of Z80 
mnemonics. Upon encountering the 
MACLIB Z80 statement the extend- 
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THINK COMPUTER 
INNOVATIONS 


hh C86 VERSION 2.3 with Source 
NEW =| Tes Debugging Support 


The C language has rapidly become the development language of choice 
for applications ranging from Operating Systems to Accounting Packages. 
WHY? Its structured approach and extreme portability make it perfectly 
suited to today’s fast-paced environment. 

Of all of the C Compilers available for PC/MSDOS, more programmers 
choose COMPUTER INNOVATIONS’ C86. WHY? Because it’s part of a 
COMPREHENSIVE family of C products with an unparalleled reputation for 
performance, reliability, and stability. 


C86 2.3 C COMPILER 


C for PC/MSDOS began with C86 and today it remains perhaps the most solid, stable 
C Compiler available. Even competitor's ads show C86 as a consistent top level performer 
in benchmark testing. 

Version 2.3 offers a host of new features including source level debugging support and 
a 40% boost in compilation speed. Call for complete specifications. 
COST: $395 UPDATE TO 2.3: $35 w/old diskettes NOT COPY PROTECTED 
CALL ABOUT VOLUME DISCOUNTS 


LEARN C INTERACTIVELY WITH INTRODUCING C 


Intimidated by rumors about the difficulty of learning C? Need to train your staff quick- 
ly? INTRODUCING C can help. INTRODUCING C combines a thorough, self-paced 
manual with a unique C interpreter to provide a fast, efficient method of learning C. 
Designed for both professional and casual programmers, it provides a comprehensive 
understanding of important C concepts such as standard K&R syntax and operators, full 
structures and unions, arrays, pointers, and data types. Requires IBM PC, XT, or AT with 
one disk drive and 192K bytes of memory. 

COST: $125 - NOT COPY PROTECTED 


Ci PROBE SOURCE DEBUGGER 


Take advantage of C86 2.3 source level debugging support with Cl PROBE. Cut down 
program development time and save money! Cl PROBE is highly economical yet has the 
features of debuggers costing far more. 

COST: $225 - NOT COPY PROTECTED 


C-TERP C86 COMPATIBLE INTERPRETER 

The C-TERP INTERPRETER is a full K&R implementation that allows you to write code 
and execute it immediately without the compile and link steps. Once you have your pro- 
gram running with C-TERP you Can compile the code (without alterations) with C86 for 
fast, efficient executable files. C-TERP requires 256K, 512K is recommended. 
COST: C86 version - List Price: $300, Special Computer Innovations Price $250. 
Boon eees C86 & Lattice version - List Price: $400, Special Computer Innovations 
Price $350. 











Start With Us, Stay With Us 


Computer Innovations offers a complete range of products that let you 
enter the C environment and create applications with the most advanced 
set of development tools available. Unparalleled tech support assures that 
you’re always at the height of productivity. 


To order call: 800-921-01 69 


is COMPUTER 
= INNOVATIONS, INC. 


980 Shrewsbury Ave., Tinton Falls, NJ 07724 ¢ (201) 542-5920 


C-TERP is a trademark of Gimple Software. Prices and specifications subject to change without notice. 
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ed set of mnemonics are simply 
turned on, resulting in no speed deg- 
radation due to the loading of a mac- 
ro library and macro generation. 

SLRMAC is another notable 
product from SLR Systems. It not 
only does the job that it’s advertised 
to do but it is also free of the many 
petty annoyances and inaccuracies 
that plague so many similar products. 
Its many advanced features, ease of 
use, and blinding speed make it a 
must for anybody in need of an Intel 
mnemonic assembler. 


Your Attention Please 

Before progressing further with the 
discussion of the Ampro Little Board 
computer begun last month, a few 
words on Z80 interrupts are in order. 
The Z80 and its family of related pe- 
ripheral support chips have an excel- 
lent built-in interrupt system. Each 
support chip that has more than one 
active element has its own internal in- 
terrupt priority scheduler and the ca- 
pability to be daisy-chained into a 
system. This structure does not re- 
quire assistance from interrupt prior- 
ity schedulers in all but the biggest 
systems. 

The main controlling element in 
the system, the Z80 CPU, can handle 
an interrupt in one of three ways de- 
pending on the setting of the inter- 
rupt mode. This fact permits the soft- 
ware to determine, to a large degree, 
how complex the interrupt system 
will be. 

The most basic interrupt mode, 
mode 0, operates identically to that of 
the 8080 interrupt response mode 
and was included to provide full com- 


patibility with that earlier and less | 


powerful CPU. This mode is set by 
executing the IM 0 instruction. With 
this mode, the interrupting device 
can place any instruction on the data 
buss and the CPU will execute it. 
Thus, the interrupting device, not the 
memory, supplies the next instruction 
to be executed. 

Mode 1, when enabled by the IM | 
instruction, causes the CPU to exe- 
cute a restart to memory location 38h 
in response to an interrupt. This ac- 
tion is identical to that of the non- 
maskable interrupt except the call lo- 
cation in memory is 38h instead of 
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66h. 

Finally, mode 2, the most powerful 
interrupt mode, combines three sys- 
tem elements to resolve the effective 
memory address loaded into the pro- 
gram counter. Witha single 8-bit val- 
ue supplied by the interrupting pe- 
ripheral device an indirect call can be 
made to any memory location. 

With this mode the CPU forms a 
16-bit memory address. The upper 
eight bits are supplied from the Z80 
interrupt register, and the lower eight 
bits are supplied by the highest prior- 
ity interrupting peripheral device. 
This 16-bit address is used as an indi- 
rect memory address pointing to a 
stored table of pointer words that 
point to the processing routine re- 
sponsible for servicing the interrupt. 
Actually, only seven bits are required 
from the interrupting device because 
bit 0 is always zero. This structure 
might seem overly complex until you 
consider that through software the 
service routine tables can be changed 
at will, providing the ultimate in 
flexibility. 


Interrupts and the Little Board 
The Ampro Little Board computer 
satisfied all the requirements I set for 
my RBBS system except the need for 
a real-time clock. My first impulse 
was to attach one through a serial 
port, but I soon remembered that 
both ports were busy; one with the 
CRT and the other with the modem. 
The lack of any unused I/O ports sty- 
mied any chance I had of using an 
external clock. The only option open 
to me was to look to the Little Board 
for a solution. 

Digging into the schematics of the 
Little Board revealed a fairly 
straightforward solution to my prob- 
lem. The engineers responsible for 
designing the Little Board used the 
Z80 and its related support chips ex- 
clusively to minimize interface logic 
requirements and arranged them to 
allow full use of their daisy-chained 
interrupt capabilities. So it seemed 
that all I needed was to find an un- 
used timer, or some-other source of 
regular interrupts, and a little soft- 
ware to implement a real-time clock. 

Fortunately, my search was a short 
one. Channel 2 of the Clock Timer 


Circuit (CTC), used for generating 
the baud rates for the serial ports, 
was left totally unused. All that was 
needed to start it working as a real- 
time clock was the few lines of code 
of Listing One (page 120). 

My first task was to define a table 
of pointer values (section 2 in the list- 
ing) addressing the interrupt process- 
ing routines. The address of the first 
entry of this table would later be 
loaded into the interrupt vector regis- 
ter. Following this table are the pro- 
cessing routines. I chose to place the 
clock values in low memory locations: 
O8h hours, 09h minutes, OAh sec- 
onds, and OBh tenths of seconds. 

Next, I had to insure that the con- 
stant flow of interrupts from the. 
CTC would not adversely affect any 
other time-sensitive system compo- 
nent such as the floppy disk control- 
ler. The only positive way to do this 
was to disable the interrupts (sections 
3 through 6 in the listing) prior to en- 
tering the data transfer routines. In 
practice, this proved to be absolutely 
necessary because of excessive disk 
errors when running with interrupts 
enabled. 

The side effect of this, however, is 
to destroy the clock’s accuracy. Since 
it’s unknown exactly how long the 
clock will be stopped during a disk 
data transfer, it’s impractical to add 
in a fudge factor upon exiting the 
disk routines. By comparing the com- 
puter clock against a stopwatch I 
found that during a highly disk inten- 
sive period the computer clock would 
run approximately 50% slow. Under 
more normal circumstances the clock 
wasn't accurate, but was close 
enough for my purpose of timing how 
long a user was on the RBBS. 

To achieve my goal of at least 95% 
accuracy I would have to run the 
floppy disk controller with interrupts 
enabled, but, as I already pointed out, 
that produces an unbearable error 
rate. My only choice was to modify 
the hardware slightly to allow both 
the CTC and the floppy disk control- 
ler to run with interrupts enabled. 
That is a project I am currently work- 
ing on. Once complete, I will publish 
the software and other modifications 
in this column. 

Getting back to the real-time clock 
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Finally. 
BSW-Make. 


The Boston Software Works now brings a 
complete implementation of the Unix 
“make” facility to MS-DOS. No more recom- 
piling every file in sight after a small edit; no 
more wondering if you’ve really rebuilt every 
module affected by an edit. Just type “make” 
and BSW-Make automatically builds your 
product quickly, efficiently and correctly. 


BSW-Make supports: 


e most compilers and assemblers 
e MS-DOS or PC-DOS v2.00 or later 
e macros for parameterized builds 
e default rules 
e MS-DOS pathnames 
e any MS-DOS machine 
(192K minimum) 





Only $69.95 postpaid (Mass. residents add 5% sales tax) 


The Boston Software Works 
120 Fulton Street, Boston, MA 02109 
(617) 367-6846 
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Users’ 
Group 


Over 45 volumes of 
public domain software 
including: 

compilers 
editors 
text formatters 
communications 

packages 
e many UNIX-like tools 


Write or call for more details 


The C Users’ Group 


415 E. Euclid * Box 97A 
McPherson, KS 67460 
(316) 241-1065 
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TURBO 
PROFESSIONAL™ 


Turbo Pascal Tools 


* SERVICE INTERRUPTS IN PASCAL 
* EASY SIDEKICK™-LIKE PROCEDURES 
* VARIABLE SIZE WINDOWS 
* KEYBOARD MACROS 
* DOS PROGRAM EXECUTION 
& RETURN 
¢ 11 INCLUDE FILES, 109 ROUTINES 
* SOURCE CODE INCLUDED 


SUPER MACS™ example program features 
keyboard macros, save macro files, load 
macro files, movable window, write screen to 
ASCII file, print concurrently in DOS 3.0 or 
greater. Works within other programs. Avail- 
able separately as .COM file. 





SUPER MACS ONLY (.COM) -$10.00 
WITH TURBO PROFESSIONAL & 

SUPER MACS SOURCE CODE -$49.95 
S&H -$ 5.00 
MC & VISA orders: (206) 367-0650 


Or send check or money order to: 

Sunny Hill Software 

13732 Midvale North, Suite 206 

Seattle, WA 98133 

Requires IBM PC, XT, AT, or 100% compatible; DOS 
2.0 - 3.1; Turbo Pascal 2.0 - 3.01B for compatibles. 
Sidekick trademark Borland Intl. 
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THE UNIX/XENIX-compatible Forth: 


e C primitives 

e dynamic memory management 

e direct-threaded 

e UNIX interfaces 

© object-oriented Forth-source included! 
© 400-page manual and glossary 

® no royalties for developers 


New Low Prices! 

Plexus, Sun, Intel 286: $495.00 
PC XT, AT, Tandy: $195.00 
Now! VAX, AT&T 3B 
UBIQUITOUS SYSTEMS 
13333 BEL-RED ROAD NE 
BELLEVUE, WA 98005 
206-641-8030 


UNIX(TM) AT&T XENIX(TM) MICROSOFT 
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Tree Shell 


vine 
2 NOG \P ! LAD 
A Graphic Sp ge 
Visual Shell for SONS Sey 
Unix/Xenix —- as 
End-Users and oon 
















Dealer 
inquiries 
welcomed. 


i 


Cole 


“A Higher Form of Software” 
24000 Telegraph Road 
Southfield, MI 48034 
(313) 352-2345 
TELEX: 386581 COGITATE USA 
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No source code for 
your REL files? 


REL/MAC 


converts a REL file in the Microsoft™ 
M8s0 format to an 8080 or ZILOG"™ Z80 
source code MAC file with insertion of all 
public and external symbols. 

@ REL/MAC makes MAC source files 

@ REL/MOD lists library modules 

@ REL/VUE displays the bit stream 


@ REL/PAK includes all of the above 
@ 8080 REL/MAC demo disk $10.00 


REL/PAK for 8080 only 
REL/PAK for Z80 & 8080 . $134.95 
on 8"SSSD disk for CP M™” 2.2 


Send check, VISA, MC or C.O.D. to 


C2 IMicroSmii 


COMPUTER TECHNOLOGY 


PO. BOX 1473 ELKHART, IN 46719 
1-800-622-4070 
(llinois only 1-800-942-7317) 
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AT LAST — 


A handbook that contains the Programming 


Codes for 100’s of popular printers. 


Manufacturers. 


e Easy to use spiral bound book of over 250 pages 
of Programming Codes written in table form. 

® Codes arranged by Written Code, Hex and Decimal 
equivalent, and with a brief description of what 
each code does. 

© Codes for either Daisy-Wheel or Dot Matrix Printers 
(models through 1984). 

ONLY $37.95 + $2 shpg./hdlg. ppd. 

with a two week approval guarantee. IF NOT 

SATISFIED, return in original carton for refund of 


book price only. 


FOR MORE INFORMATION OR TO ORDER 


Announcing: 
PROGRAMMERS’ HANDBOOK OF 
COMPUTER PRINTER COMMANDS 


The handbook gives you: 
e Codes for printers made by over 40 Printer 


CALL OR WRITE: 


> Gardinal o Paint 
INCORPORATE O 
(812) 876-7811 (9-5 EST) 


G: P.O. BOX 596, ELLETTSVILLE, IN 47429 quam | 


We accept MC, VISA, MO—same day shpg. 
COD—$2 extra. CKs—Allow extra 14 days. 
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VISA 


SBC88 DEVELOPEMENT AND CONTROL STYSTEM 


WRITE IT — RUN IT — ROM IT 


A single board computer development and control system that 
is So simple to use, you will be developing applications pro- 
grams the first day! 


* Choice of Basic or FORTH 


in ROM 


* 8 channel, 8 bit analog to 


digital converter 


* Two 8 bit input ports 
Two 8 bit output ports 


* Time of day 


* 8088 16 bit uP 


* Onboard EPROM programmer for 


complete program development 


* RS-232 terminal and parallel 


printer port for program entry 


at 500 mA, 50 VDC 


available 


* Up to 32 K of user memory 
. Floating point UNIFORTH 


Units start at $279 ($99 1000) 
Compatible power supplies start at $49 


Vesta Technology, Inc. 








* 7 current sinking outputs rated 


7100 W. 44th Ave. Suite 101 


Wheat Ridge, CO 80033 (303) 422-8088 
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IC, PROMPT DELIVERY!!! 


SAME DAY SHIPPING (USUALLY) 


OUTSIDE OKLAHOMA: NO SALES TAX 





$69.50 


256K 
256K 
128K 
64K 
64K 


27C256 
27256 
27128 
27C64 
2764 
2732A 


640 Kbyte MOTHERBOARD KITS: IBM PC/XT 
Zenith 150 & 100, Compaq Portable & Plus: 


16Kx4 
64Kx1 


120 ns 
150 ns 
120 ns 
150 ns 
150 ns 


EPROM 


32Kx8 
32Kx8 
16Kx8 
8Kx8 
8Kx8 
4Kx8 


250 ns 
250 ns 
250 ns 
200 ns 
250 ns 
250 ns 


STATIC RAM 
6264LP-15 skxs 150 ns 


8087-2 COPROCESSORS $125.00 
DYNAMIC RAM 
256Kx1 
256Kx1 
128Kx1 


$ 3.75 
eto 
6.75 
2.75 
1.10 


$12.75 
6.00 
3.30 
5.20 
2.75 
2:49) 


$4.75 





QUANTITY ONE PRICES SHOWN 


OPEN 6'2 DAYS: WE CAN SHIP VIA FED-EX ON SAT. 


MasterCard/VISA or UPS CASH COD 
ornvers BY! Factory New, Prime Parts Poo 


MICROPROCESSORS UNLIMITED 


Th: Std Air 


24,000 S. Peoria Ave., 
BEGGS, OK. 74421 


(918) 267-4961 


Prices shown above are for September 2, 1985 


prices. Prices subject to 
some parts due to supply & demand and our 
discount prices shown. Orders recetved by 6 PM C: 
Federal Express 


Please expect higher 
costs. Shipping & insurance extra. Cash 
can usually be delivered to you by the next 
Standard Air @ $6.00, or Priority One @ $15.00! 


or lower pnces on 
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routines, the last addition I had to 
make to the BIOS (sections 7 and 8 
in the listing) was to initialize the 
CTC and the interrupt register with 
the proper constants at cold boot 
time. 

If you are inclined to make these 
changes to your machine, be sure that 
you are running version 2.3 of the 


BIOS, also known as the hard disk 
BIOS. Have a CTC reference man- 
ual handy to use when setting initial 
values. 

One final comment: My system 
has a hard disk that ports into the 
Little Board through a SCSI peer 
buss adapter. I have found that this 
configuration runs completely error 


free because the hard disk controller 
is a buffered device able to transfer 
data while other tasks are active. 


DD] 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 195. 





CP/M Exchange Listing 


(Text begins on page 114) 


1) Add at line number 551 after statement FDALV EQU 


INTRPT SET YES 
TIMER EQU YES 
TYPER EQU NO 


2) Add at line number 1928 after statement WTBLEN 


IF TIMER 


58 


; SET INTERRUPTS TO NO AS DEFAULT 
; USE CHANNEL 2 OF CTC AS A TIMER 
; USE BUFFERED KEYBOARD 


EQU 


S-WINCH3 


LE SS EE TE ES ST SE ES ET SE SE SS SE SE SE SEE SE Ge Ge Gee Ye Ge et ee 
Se ee Ge GE EE Ge GE Gee Ge Gee Gee Gee ee Ge ee ee ee ee EE ES GE ee GE GE Ge Ge Ge Gee Geet Ge a ee Ge Ge Gee Ge ee Gee Gee ae ee Ge ee ae Ga ane eee 


A ES ES ES SS SS SS A SS EE ET EE EE ST et a SF cr see eee 


ORG ($+17) AND OFFFO@H 
TIMERSINTSTABLE: 
DW BAUDSA 
DW BAUDSB 
DW TIMERSRTN 
DW DSKSINT 
ENDIF 
TIMERSRTN: 
PUSH PSW »SAVE THOSE REGISTERS THAT WE DESTROY 
PUSH H :% 
LXI Bie *>POINT AT HUNDREDS 
INR M s; INCREMENT IT 
MOV A,M *GET HUNDREDS DIGIT 
SUI 19 sAT LIMIT 
JINZ TIMERSEXIT :NO 
MOV M,A : ZERO HUNDREDS 
DCX H :;POINT AT TENS 
INR M s; INCREMENT IT 
MOV A,M ;GET TENS DIGIT 
SUI 19 sAT LIMIT 
JINZ TIMERSEXIT :NO 
MOV M,A >ZERO TENS 
DCX H *POINT AT SECONDS 
INR M * INCREMENT IT 
MOV A,M GET SECOND DIGIT 
SUI 68 sAT LIMIT 
JNZ TIMERSEXIT :NO 
MOV M,A :ZERO SECOND 
DCX H POINT AT MINUTES 


120 


(Continued on page 122) 
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ALL SALES ARE MADE SUBJECT TO THE TERMS OF OUR 90 DAY LIMITED WARRANTY. A COPY OF THIS WARRANTY IS AVAILABLE FREE, ON REQUEST. 


DIGITAL RESEARCH COMPUTERS 






Leal 


Switching Power Supply! : 4.900 S100 STATIC RAM 


LOW POWER! 
150 NS ADD $10 


BLANK PC BOARD 
WITH DOCUMENTATION 


$49.95 FEATURES: PRICE CUT! 


SUPPORT ICs +CAPS~ * Uses new 2K x 8 (TMM 2016 or HM 6116) RAMs. 
$17.50 * Fully supports IEEE 696 24 BIT Extended 
; Addressing. 
* 64K draws only approximately 500 MA. 
FULL SOCKET SET * 200 NS RAMs are standard. (TOSHIBA makes 
$14.50 TMM 2016s as fast as 100 NS. FOR YOUR HIGH 
SPEED APPLICATIONS.) 
FULLY SUPPORTS THE , supports PHANTOM (BOTH LOWER 32K 






+ 5VDC - 8 Amps 

+12VDC - 5 Amps 

-12VDC - 1 Amp 
(81 WATTS MAX) 


$2988 ss 


BRAND NEW UNITS, MFG. BY BOSCHERT FOR HEWLETT 
















































PACKARD! PERFECT FOR SMALL COMPUTER AND DISK NEW IEEE 696 S100 = AND ENTIRE BOARD). 

DRIVE APPLICATIONS #XL81-5630. INPUT 110V/220V STANDARD Sane Of the tee aie selon at AMEE Ga. 
: * A a) 8K (E0 & 

50/60 HZ. NOMINAL OUTPUTS: +5VDC @ 8A, +12VDC @5A, (AS PROPOSED) be disabled to provide windows to eliminate 

-12VDC @ 1A. TOTAL MAX OUTPUT. MUST BE LIMITED TO FOR 56K KIT $105 © A ote oe 














disk controller, etc. 
ASSEMBLED AND * Perfect for small systems since BOTH RAM and 
TESTED ADD $50 EPROM may co-exist on the same board. 
* BOARD may be partially populated as 56K. 


256K S-100 SOLID STATE DISK SIMULATOR! 64K SS- 50 STATIC RAM 


WE CALL TH!S BOARD THE “LIGHT-SPEED-100" BECAUSE IT OFFERS 
AN ASTOUNDING INCREASE IN YOUR COMPUTER'S PERFORMANCE S 
OO FF xin 







81 WATTS TOTAL! (WITH PIN OUT SHEET.) ORIGINAL 
FACTORY BOXED. 


WHEN COMPARED TO A MECHANICAL FLOPPY D!SK DRIVE. 
FEATURES: 


PRICE CUT! * 256K on board. using + 5V 64K 
# DRAMS. 


* Uses new Intel 8203-1 LSI Memory 





Controller. 
* Requires only 4 Dip Switch Selectable 
1/0 Ports. LOW POWER! 
* Runs on 8080 or Z80 S100 machines. 
* Up to 8 LS-100 boards can be run RAM OR EPROM! — 
together for 2 Meg. of On Line Solid FEATURES: 
, eer ee sas BLANK PC BOARD « Uses new 2K x 8 (TMM 2016 or HM 6116) RAMs. 
Sees ee ep WITH * Fully supports Extended Addressing. 
AbD 8 3 DOR 4 a o your DOCUMENTATION * 64K draws only approximately 500 MA. 
* The LS-100 face Ge a i $52 * 200 NS RAMs are standard. (TOSHIBA makes 
e se provides an increase In TMM 2016s as fast as 100 NS. FOR YOUR HIGH 
eee up - 7 to 10 times on Disk SUPPORT ICs + CAPS SPEED APPLICATIONS.) 
7 : ensive So ere ‘ 7 $18.00 * Board is configured as 3-16K blocks and 8-2K 
BLANK PCB eet our price. sis cou a ; blocks (within any 64K block) for maximum 
(WITH CP/M* 2.2 cae ee eee FULL SOCKET SET eet : 
PATCHES AND INSTALL $15.00 * ees may be installed anywhere on 
PROGRAM ON DISKETTE) $ 00 * Top 16K may be disabled in 2K blocks to avoid 
$6995 (ADD $50 FOR A&T) 56K KIT $109 any 1/O conflicts. 
(8203-1 INTEL $29.95) 64K KIT $119 * One Board supports both RAM and EPROM. 
#LS-100 (FULL 256K KIT) * RAM supports 2MHZ operation at no extra 
















ASSEMBLED AND * sean i be partially populated in 16K 
TESTED ADD $50 freeatwarte. P oon 


32K S100 EPROM/STATIC RAM 


THE NEW ZRT-80 
CRT TERMINAL BOARD! 


A LOW COST 2-80 BASED SINGLE BOARD THAT ONLY NEEDS AN 
ASCII KEYBOARD, POWER SUPPLY, AND VIDEO MONITOR TOMAKEA 
COMPLETE CRT TERMINAL. USE AS A COMPUTER CONSOLE, OR 
WITH A MODEM FOR USE WITHANY OF THE PHONE- LINE COMPUTER 
SERVICES. 


FEATURES: 
* Uses a Z80A and 6845 CRT 
Controller for powerful video 


















BLANK 





PC BOARD 
WITH DATA 
$39.95 


EPROM Il 
FULL 









EPROM KIT 
$69.95 

















SUPPORT 

























capabilities. Ic’s 

* RS232 at 16 BAUD Rates from 75 PLUS CAPS 
to 19,200. ic Sa ST aT ee | $16 

x 24 x 80 standard format (60 Hz). 

* Optional formats from 24 x 80 We took our very popular 32K S100 EPROM Card and added FULL 
(50 Hz) to 64 lines x 96 characters additional logic to create a more versatile EPROM/RAM Board. a ed ner 











(60 Hz). 

* Higher density formats require up to 
3 additional 2K x 8 6116 RAMS. 

x Uses N.S. INS 8250 BAUD Rate Gen. 
and USART combo IC. 

* 3 Terminal Emulation Modes which 


FEATURES: * This one board can be used in any one of four ways: 
A. As a 32K 2716 EPROM Board 
B. As a 32K 2732 EPROM Board (Using Every Other Socket) 
C. As a mixed 32K 2716 EPROM/2K x 8 RAM Board 
D. As a 32K Static RAM Board 










i i * Uses New 2K x 8 (TMM2016 or HM6116) RAM's 
duce ioe Lat aun the Heath $ e >" * Fully Supports IEEE 696 Buss Standard (As Proposed) 
H-19, and the Beehive. GY &Y  * Supports 24 Bit Extended Adressing 

x Composite or Split Video. Poa: 80 eS > * 200 NS (FAST!) RAM'S are standard on the RAM Kit 
* Any polarity of video or sync. (COMPLETE KIT, 2K VIDEO RAM) Q ye . puerers Ser crane and North Star Bank Select 
Seat ee. eee ae BLANK PCB WITH 2716 4 * On Board wait State Generator 
(ey Sep rng a Hoge CHAR. ROM. 2732 MON. ROM D * Every 2K Block may be disabled 
fee ee eee é : * Addressed as two separate 16K Blocks on any 64K Boundary 
etx oh ieee ae $4995 * Perfect for MP/M* Systems 
5 Regn es Se BSCl Seyboer:- * RAM Kit is very low power (300 MA typical) 
FOR 8 IN. SOURCE DISK SOURCE DISKETTE - ADD $10 
(CP/M COMPATIBLE) SET OF 2 CRYSTALS - ADD $7.50 32K STATIC RAM KIT — $99.95 





ADD $10 


Digital Research Computers 


P.O. BOX 461565 - GARLAND, TEXAS 75046 + (214) 225-2309 






For RAM Kit A&T — Add $40 
TERMS: Add $3.00 postage. Orders under $15 add 75¢ handling. No 
C.O.D. We accept Visa and MasterCharge. Tex. Res. add 5-1/8% Tax. 
Foreign orders (except Canada) add 20% P & H. Orders over $50 add 85¢ 
for insurance. 





WE ARE NOT ASSOCIATED WITH DIGITAL RESEARCH INC. (CALIF.) THE SUPPLIERS OF CPM SOFTWARE 
Circle no. 33 on reader service card. 


*TM OF DIGITAL RESEARCH INC. (CALIF.) 


CP e M Ex C. hang e Lis ting (Listing continued, text begins on page 114) 


INR M * INCREMENT IT 
MOV A,M :;GET MINUTE DIGIT 
SUI 60 sAT LIMIT 
JINZ TIMERSEXIT NO 
MOV M,A *ZERO MINUTE 
DCX H *>POINT AT HOURS 
INR M *TNCREMENT IT 
MOV A,M *GET HOUR DIGIT 
SUI 24 sAT LIMIT 
JINZ TIMERSEXIT *NO 
MOV M,A *ZERO HOUR 
TIMERSEXIT: 
POP i 
POP PSW 
BAUDSA: 
BAUDSB: 
DSKSINT: 
EI 
RETI 


3) Add at line number 3144 after label WR: 


TE INTRPT 
DI 
ENDIF 


| Becsecesces 
| @RRRPReR Oe 
¥ BSoOsSscsoese 


BERRA RRER 


POC eCSOGCOSaG Ges 


Realtime on MSDO$? Csharp can do it! Get the tools without operating system overhead. Cut development time with C source 
code for realtime data acquisition and control. Csharp includes: graphics, event handling, procedure scheduling, state system 
control, and interrupt handling. Processor, device, and operating system independent. Csharp runs standalone or with: MSDOS, 
PCDOS, or RT11. Csharp runs on: PDP-11 and IBM PC. Csharp includes drivers for Hercules and IBM graphics boards, Data 
Translation and Metrabyte iO boards, real time clock, and more. Inquire for Victor 9000, Unix, and other systems. Price: $600 


COCCI Systems Guild, Inc., P.O. Box 1085, Cambridge, MA 02142 


(617) 451-8479 
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4) Add at line number 3159 after label WREXIT: 


LF INTRPT 
ET 
ENDIF 


5) Add at line number 3199 after label RD: 
IF INTRPT 
DI 
ENDIF 
6) Add at line number 3214 after label RDEXIT: 
IF INTRPT 
EI 
ENDIF 


7) Add at line number 4431 before label LOGMSG: and before JMP GOCPM, 


IF TIMER 

XRA A :GET A ZERO 

STA 8 CLEAR TIMER SAVE AREAS 

STA G = 

STA 18 ‘= 

STA PL 2% 

STA LZ 2% 

MVI A, (LOW TIMERSINTSTABLE) AND OFQSH 

OUT CTCAQ 7SET INTERRUPT VECTOR LOW 8 BITS 

MVI A,HIGH TIMERSINTSTABLE 

STAI 7;SET INTERRUPT VECTOR HIGH 8 BITS 

IM2 *>SET INTERRUPT MODE 2 

MVI A, GA7H ;TIMER MODE - 256 PRESCALER - CONSTANT 
7>FOLLOWS - RESET - CONTROL 

OUT CTCA2 

MVI A,156 :TIME CONSTANT 

OUT CTCA2 

ENDIF 


8) Add at line number 4458 and after label LOGMD: 


Le TIMER 
DB CR,LF,'Real Time Clock Active' 
ENDIF End Listing 


‘‘C/80. . . the best software buy in America!”’’ 


Now available in MS-DOS — MICROSYSTEMS 


Other technically respected publications like Byte In reviews published worldwide the amazing $49.95 
and Dr. Dobb's have similar praise for The Software C/80 from The Software Toolworks has consistently 
Toolworks’ $49.95 full featured ‘C’ compiler for CP/M® scored at or near the top — even when compared with 
and HDOS with: compilers costing ten times as much! 


e |/O redirection The optional C/80 MATHPAK adds 32-bit floats and 
® command line expansion longs to the C/80 3.0 compiler. Includes I/O and trans- 


e execution trace and profile cendental function library all for only $29.95! 


e initializers . C/80 is only one of 41 great programs each under 
e Macro-80 compatability sixty bucks. Includes: LISP, Ratfor, assemblers and 


e ROMabie code over 30 other CP/M® and MSDOS programs. 
e and much more! 


‘*We bought and evaluated over $1500 For your free catalog contact: 
worth of ‘C’ compilers. . .C/80 is the one The Software Toolworks 


we use.’’ — Dr. Bruce E. Wampler 15233 Ventura Blvd., Suite 1118, 
Aspen Software Sherman Oaks, CA 91403 or call 818/986-4885 today! 


* ik" 
apihes ot “Gramumatix CP/M is a registered trademark of Digital Research. 
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Vol. 1 1976 

The material brought together in this volume 
chronicles the development in 1976 of Tiny BASIC 
as an alternative to the “‘finger blistering,”’ front- 
panel, machine-language programming which was 
then the only way to do things. This is always 
pertinent for the bit crunching and byte saving, 
language design theory, home-brew computer 
construction and the technical history of personal 
computing. 

Topics include: Tiny BASIC, the (very) first word on 
CP/M, Speech Synthesis, Floating Point Routines, 
Timer Routines, Building an IMSAI, and more. 


Vol. 2 1977 

1977 found DDJ still on the forefront. These issues 
offer refinements of Tiny BASIC, plus then state-of- 
the-art utilities, the advent of PILOT for 
microcomputers and a great deal of material 
centering around the Intel 6080, including a 
complete operating system. Products just 
becoming available for reviews were the H-8, KIM- 
1, MITS BASIC, Poly Basic, and NIBL. 

Articles are about Lawrence Livermoore Lab’‘s 
BASIC, Alpha Micro, String Handling, Cyphers, 
High Speed Interaction, |/O, Tiny Pilot & Turtle 
Graphics, many utilities, and even more. . 


Vol. 3 1978 

The microcomputer industry entered into its 
adolescence in 1978. This volume brings together 
the issues which began dealing with the 6502, 
with mass-market machines and languages to 
match. The authors began speaking more in terms 
of technique, rather than of specific 
implementations; because of this, they were able 
to continue laying the groundwork industry would 


SS ee 
ocomputer subset of the Defense 
re. Because the magazine 


follow. These articles relate very closely to what is 
generally available today. 

Languages covered in depth were SAM76, Pilot, 
Pascal, and Lisp, in addition to RAM Testers, S-100 
Bus Standard Proposal, Disassemblers, Editors, and 
much, much more. 


Vol. 4 1979 

This volume heralds a wider interest in 
telecommunications, in algorithms, and in faster, 
more powerful utilities and languages, innovation 
is still present in every page, and more attention is 
paid to the best ways to use the processors which 
have proven longevity—primarily the 80801Z80, 
6502, and 6800. The subject matter is invaluable 
both as a learning tool and as a frequent source of 
reference. 

Main subjects include: Programming Problems/ 
Solutions, Pascal, Information Network Proposal, 
Floating Point Arithmetic, 8-bit to 16-bit 
Conversion, Psuedo-random Sequences, and 
Interfacing a Micro to a Mainframe—more than 
ever! 


Vol. 5 1980 

All the ground-breaking issues from 1980 in one 
volume! Systems software reached a new level 
with the advent of CP/M, chronicled herein by 
Gary Kildall and others (DDJ's all-CP/M issue sold 
out within weeks of publication). Software 
portability became a subject of greater import, and 
DD/J published Ron Cain's immediately famous 
Small-C compiler—reprinted here in full. 

Contents include: The Evolution of CP/M, a CP/ 
M-Flavored C Interpreter, Ron Cain's C Compiler 





for the 8080. Further with Tiny BASIC, a Syntax- 
Oriented Compiler Writing Language, CP/M to 
UCSD Pascal File Conversion, Run-time Library for 
the Small-C Compiler and, as always, even morel 


Vol. 6 1981 

1981 saw our first all-FORTH issue (now sold out), 
along with continuing coverage of CP/M, small-C, 
telecommunications, and new languages. Dave 
Cortesi opened ‘‘Dr. Dobb's Clinic’ in 1981, 
beginning one of the magazine's most popular 
features. 

Highlights: Information on PCNET, the Conference 
Tree, and The Electric Phone Book, writing your 
own compiler, a systems programming language, 
and Tiny BASIC for the 6809. 


Vol. 7 1982 

In 1982 we introduced several significant pieces of 
software, including the RED text editor and the 
Runic extensible compiler, and we continue to 
publish utility programs and useful algorithms. Two 
new columns, The CP/M Exchange and The 16-Bit 
Software Toolbox, were launched, and we 
devoted special issues to FORTH and 
telecommunications. Resident Intern Dave Cortesi 
supplied a year of *’Clinic’’ columns while 
delivering his famous review of JRT Pascal and 
writing the first serious technical comparison of 
CP/M-86 and MSDOS. This was also the year we 
began looking forward to today’s generation of 
microprocessors and operating systems, publishing 
software for the Motorola 68000 and the Zilog 
Z8000 as well as Unix code. And in December, we 
looked beyond, in the provocative essay, ‘’Fifth- 
generation Computers.”’ 


Complete your reference library. Buy the entire set of Dr. Dobb’s Journals from 1976 through 1983, Bound Volumes 
1-8, for $195.00. That’s $34.00 off the combined individual prices—a savings of almost 15%! 








Vol. 

YES! O Piease send me the following Volumes of Dr. Dobb’s Journal. ane 
Payment must accompany your order. ce 
Please charge my: L}visa CL) Mastercard (J American Express Vol. 
| enclose Check/money order Vol. 
Card # Expiration Date Vol. 

; Vol. 
Signature All 
Name Address 

(please, no P.O. Boxes) 
City State Zip 
Mail to Dr. Dobb’s Journal, 2464 Embarcadero Way, Palo Alto, CA 
94303 
Allow 6 to 12 weeks for delivery. 

3108 


OoOnNowntpWN — 


$27.75 
$27.75 
$27:75 
$27.75 
$27.75 = 
$27.75 = 
$30.75 = 
$31.75 = 
x $195.00 = 
Sub-total $ 


Me DK) Se RL RY RK, OS 


California residents add applicable 


sales tax % 





Postage & Handling Must be Included with order. 
Please add $1.75 per book in U.S. ($4.25 each surface mail 
outside U.S. Foreign Airmail rates available on request.) 


TOTAL $ 
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Software 


TECMAR GRAPHICS LIBRARY 


TEKMAR lets you do high-res graphics 
on your TECMAR Graphics Master. Fea- 
tures windowing, viewporting, clipping, 
axis rotation. Similar to Tekronix graph- 
ics. Includes screen dump/restore. Ep- 
son screen print, support for HP and 
Western Graphtec plotters. Includes 
three curve-fitting programs and graph- 
ics application SOURCE CODE. Requires 
MS-FORT 3.20, or Lahey F77L. 

Price: $195. 

ADVANCED SYSTEMS 
CONSULTANTS, 

18653 Ventura Boulevard, Suite 351, 
Tarzana, California 91356 

(818) 407-1059 


DBase II User—Converting to ‘’C”’ 
Try the dBx translation system— from 
DBase II to quality “C”; incl. translator, 
screen handler, & sort (w/source)— 
uses any file handler. For MSDOS, 
XENIX & UNIX Sys 5. 

Desktop Al 

Box 640 

Norwalk, CT 06856 


Software 


DBase II User—Converting to ‘’C’’? 
Try the dBx translation system—from 
DBase II to quality “C”; incl. translator, 
screen handler, & sort (w/source)— 
uses any file handler. For MS-DOS, 
XENIX & UNIX sys 5. 
Desktop Al 
Box 640 
Norwalk, CT 06856 


SOFTWARE SENTINEL 
A hardware key that prohibits unau- 
thorized use of software. Its benefits: 
Unlimited backup copies; unbreakable; 
site licensing control; no floppy re- 
quired with hard disk; transparent; 
pocketsize. Evaluation Kit available. PC 
compatible. 
Rainbow Technologies, Inc. 
17971 Skypark Circle, Suite E 
Irvine, CA 92714 (714) 261-0228 


Utility 


**Pascal’s Friend** 
PASCAL'S FRIEND v. Il contains source 
code for use with IBM PC Turbo Pascal: 
1-2-3 style menu routines, keyboard 
handling, save and restore screens, 
read disk directory or any track and 
sector, system clock and calendar rou- 
tines, write strings in any attribute, 
DOS funcion calls and MORE! 

J. S. Computing 
815N. 12th St. 

Suite 5 

Allentown, PA 18102 
(215) 821-9020 


Recruiting 


Personal Computer Owners 

CAN EARN $1000 TO $5000 
monthly selling simple services per- 
formed by their computer. Work at 
home in spare time. Get free list of 100 
best services to offer. 


Write: 
C)4D.6. 
P.O. Box 60369 
San Diego, CA 92106-8369 





Hardware 


Meme): 


24 HR. MODEM LINE 


(408)425-1603 


Specializing in 
technical/reference books 
and computer supplies. 


Wise Dog Computerbooks 
4340 Fair Ave, Santa Cruz,CA95060 


Dr. Dobb’s Journal 
Subscription Problems? 


No Problem! 
Give us a call and we'll straight- 
en it out. Today. 


Outside CA: 800-321-3333 
Inside CA: 619-485-9623 or 6947 





Dr. Dobb's Journal 


is pleased to announce the 


DDJ Classifieds 


RATES: DISPLAY ADVERTISERS: Price per column inch $100. Ad must run in 3 consecutive issues. 
LINE ADVERTISERS: Price per line $12 (35 characters per line including spaces). Minimum of 5 
lines, 3 consecutive issues. Add $3 per line for boldface type. Add $25 if a background screen is 
desired. 

DISCOUNTS: Frequency discounts for 6 consecutive ads (less 7%) and for 12 consecutive ads (less 15%). 

MECHANICAL REQUIREMENTS: Camera ready art or typewritten copy only (phone orders excepted). 
Display: Specify desired size, include $20 if reduction is required. Line: Specify characters in 
boldface, caps. Allow 6 weeks for publication. 

PAYMENTS: Full payment in advance. Check, money order, Visa, M/C, AmEx. 


Run this ad in issues 


Sve = COLX inches or | col x 
Payments by: 
Card # 


Signature 


check. =. MYO 


Print Name 

Company 

Address 

City te os leeeeeae iD 


Phone Current Subscriber 


Mail to or phone Shawn Horst, DDJ Classifieds, 2464 Embarcadero Way, Palo Alto, CA 94303 (415) 424-0600 
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The First Idea-Processor For Programmers. 


Firslime 


Has features no other editor has. 





‘ 


=a: 


@ Fast program entry through single keystroke statement generators. 

@ Fast editing through syntax oriented cursor movements. 

® Dramatically reduced debugging time through immediate syntax checking. 
@ Fast development through unique programmer oriented features. 


@ Automatic program formatter. 


FirsTime is a True Syntax Directed Editor. 


As the world’s most advanced syntax-directed 
editor, FirsTime lets you work with ideas by taking 
care of the low-level syntax details of your program. 
For example, you can generate complete statement 
skeletons with one keystroke. Move the cursor from 
one procedure to the next with one keystroke. Type 
in code, and it’s instantly formatted (you specify the 
rules). Type an error, and FirsTime warns you 


immediately. You can continue working if you wish. 
Later, you can use the search-for-error command to 


find the error and fix it. 


FirsTime Has Thorough Error Checking. 
FirsTime not only checks your syntax, but also 
semantics. FirsTime identifies: 

e Undefined variables, types and constants. 

e Assignment statements with type mismatches. 

e Errors in include files and macro expansions. 


To Order Call: (201) 741-8188 or write: 
SPRUCE TECHNOLOGY CORPORATION 


P.O. Box 7948 
Shrewsbury, NJ 07701 


FirsTime is a trademark of Spruce Technology Corporation © MS-DOS is a 
trademark of Microsoft Corporation @ IBM is a trademark of International 
Business Machines Inc. ® Turbo Pascal is a trademark of Borland International 
e dBase Ill is a trademark of Ashton-Tate. 


FirsTime Lets You Work With Ideas. 

The Zoom command gives you a top down view of 
your program logic. 

The View macro command shows the expansions of a 
C macro while in the editor. 

The View include file command instantly shows you 
the contents of an include file. 

The Transform command allows you to change a 
statement to another similar statement, for 
example, a FOR to an equivalent WHILE. 

The Search for next error command allows you to 
find errors throughout your program. 

The Cursor movement commands \et you traverse 


your program by logical elements, not just 
characters. 


FirsTime Works With Existing Files. 


FirsTime works with standard ASCII files, so you can 
edit any existing source files. 


FirsTime for Turbo Pascal S 74.95 
FirsTime for dBase III $125.00 
FirsTime for MS—Pascal $245.00 
FirsTime for C $295.00 


In Germany, Austria and Switzerland contact: 
Markt & Technik Software Verlag 

Munchen, W. Germany 

(089) 4613-0 
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Tools That Make Your Job Easier 


For PCDOS/MSDOS (2.0 and above/128K) @ IBM PC/Compatibles, PC Jr., Tandy 1000/1200/2000, & others 





Great For All Languages 


A general purpose text 
processor, the MIX Editor is 
packed with features that make 
it useful with any language. It 
has auto indent for structured 
languages like Pascal or C. It has 
automatic line numbering for 
BASIC (255 character lines). It 
even has fill and justify for 
English. 


Split Screen 


You can split the screen 
horizontally or vertically and 
edit two files simultaneously. 


Custom Key Layouts 


Commands are mapped to keys 
just like WordStar. If you don’t 
like the WordStar layout, it’s 
easy to change it. Any key can be 
mapped to any command. You 
can also define a key to generate 
a string of characters, great for 
entering keywords. 


Macro Commands 


The MIX Editor allows a 
sequence of commands to be 
executed with a single 
keystroke. You can define a 
complete editing operation and 
perform it at the touch of a key. 


Custom Setup Files 


Custom keyboard layouts and 
macro commands can be saved 
in setup files. You can create a 
different setup file for each 
language you use. 


MSDOS Features 


Execute any DOS command or 
run another program from 
inside the editor. You can even 
enter DOS and then return to 
the editor by typing exit. : 


For CPM80 2.2/3.0 (Z80 required/64K ) @ 8” SSSD, Kaypro 2/4, Osborne I SD/DD, Apple I, & others 


Complete & Standard 


MIX C is a complete and 


standard implementation of C 
as defined by Kernighan and 
Ritchie. Coupled with a Unix 
compatible function library, it 
greatly enhances your ability to 
write portable programs. 


The Best C Manual 


MIX C is complemented by a 
400 page manual that includes 
a tutorial. It explains all the 
various features of the C 
language. You may find it more 
helpful than many of the books 
written about C. 


Fast Development 


MIX C includes a fast single 
pass compiler and an equally 
fast linker. Both are executed 
with a simple one line 
command. Together they make 
program development a quick 
and easy process. 


Fast Execution 


The programs developed with 
MIX C are fast. For example, 
the often quoted prime 
number benchmark executes 
in a very respectable 17 
seconds on a standard IBM PC. 


Standard Functions 


In addition to the functions 
described by K&R, MIX C 
includes the more exotic 
functions like setjmp and 
longjmp. Source code is also 
included. 


Special Functions 


MIX C provides access to your 
machine’s specific features 
through BDOS and BIOS 
functions. The CHAIN function 
lets you chain from one 
program to another. The 
MSDOS version even has one 
function that executes any DOS 
command string while another 
executes programs and returns. 


Language Features 


® Data Types: char, short, int, 
unsigned, long, float, double 
(MSDOS version performs 
BCD arithmetic on float and 
double-no roundoff errors ) 
@ Data Classes: auto, static, 
extern, register 
® Struct, Union, Bit Fields 
(struct assignment 
supported ) 


_ @ Typedef, Initialization 


@ All operators and macro 
commands are supported 
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The Best Source 
Debugger for C 





Interactive testing: enter any C 
expression, statement, or function call, 
and it is immediately executed and the 
result displayed. Direct execution 
allows fast and thorough testing, 
makes learning C a snap. 


Run-time checking: execution stops 
upon exception, and source code dis- 

played. Exceptions include array refer- 
ence bounds, stack overflow arithmetic 
or floating point error, etc. Pointers are 


checked for null or out of range values. 


Breakpoints: any number of break- 
points can be set anywhere in your 
program; breakpoints are set with screen 
editor, not by line numbers. Breakpoints 
may be conditional. Single-step by 
statement. Interrupt execution from 
keyboard. Breakpoint, exception, or 
interruption is always shown with source 
code. Examine and modify data, look 
at stack history. Even change your pro- 
gram and then resume execution! 
Lint-like Compile-time checking: 
argument number and sizes are checked 
for consistency. Never mismatch source 
and object code. 


The best feature of all: the fastest C 
interpreter is right there when you’re 
debugging. Make changes in seconds 
with the integrated screen editor. Test 
the changes immediately, running your 
program at compiled speed. Save source 
code for your favorite compiler, or make 
stand-alone executable programs. Noth- 
ing else is needed. Instant-C is the 
fastest way to get working, fully 
debugged C programs available 
today. 


‘‘We sincerely feel that Instant-C can have a 


major positive impact on programmer produc- 


tivity.’ Computer Language, Feb. 85, pp. 82-83. 


Instant-C is only $495. Money back 
for any reason in first 31 days. 


Rational 


Systems, Inc. 


(617) 653-6194 
P.O. Box 480 
Natick, MA 07160 


Circle no. 7 on reader service card. 


128 


ZY e aos. a NB a4 








Reader Reader 
Service Page _ Service Page 
No. Advertiser No. No, Advertiser No. 
A Advent Products lic, .............. 64-65 65 Miller Microcomputer Services ........ 16 
* Alcor; Min Systems ..........4.2... 2?) 66 Mitek. 23 
S Aisin... cs 48 128 Morgan Computing Company........ it5 
1G. Arty Comoration........... 4. 37. =©104 Mullen Computer Products ........... 93 
12 Automata Design Systems ............ $4. «79. Mystic Canyon Software .........-.. 17 
ont eh 63 [0G Next Generation Systems ........;.. 26 
& Miaice Conipuiins. 2... ... cee: 21. = 39 «Overland Data inc. |... 73 
14 Borland laternational ...-........... C4 108 PC. Brand. ..........1... 94-95 
126 Boston Software Works ............. 119 25 Pascom Computing... 6... C-3 
ly C Users Group ..................... 119 i0 Petiormance Microproducts ......... “hiz 
5; 4 Wate... 61 16 Pemonal fox Ine... i ve 
Ti Cardinal Pointe ie... 119 4/7 Phoenix Computer Products ........ .. 2-3 
io (hake =... 13. 91 Phoenix Computer Products .......... 15 
aa Coptate Ing 5... ............ U9 GF. Pi erier oyeeOMs og 6 ios 5 86 
18 Computer Control Systems .......... 107 qi. Poor Person Softwate ..:-.7....:.... 81 
22 Computer Helper Industries, Inc. ..... 92 99: Programmers SG0p ... 2.02 ss 51 
96 Computer Innovations .............. 117 7 Rational Systems, Inc. ......-...--.. 128 
S32 Creative Programnims .............. 12 49 Relational Database Systems.......... 53 
12 DAW Ges 28 SO MevascO |... 8. 109 
122 DDJ Classified Advertising ........... 25 = Sie System:............... 1. 69 
oi DOMCO 1... i. 85 20 Samkiva ............3-.....5..-.. 112 
at DPMA.........:..,.:.-...:......-. 71 114 Seidl Comiputer Enginecring ......... 110 
St Data Buse Decisions «§««..............-.; GS? S&F Semibick Sysitins ts .., 108 
33 Digital Research Computers ......... 121 86 Shaw American Technologies ........ 49 
55 Harnh Computers ................-. 50... 24. Shaw Laboratories ............ 2.5, 35 
168 Eclipse Systems. wi jij“. 16 G3 Soli Advances .................2. 54 
35 Pease inc =... — 58 118 Sonat ine 2 19 
13 EdwariK Mean ........ ssi... 48 ue Soallaid int... 2. 49 
138 Eecent Sofiese... SS 170 Sones 8, 93 
50 Everest Solutions =... €-2 140 Soliware Monzons Inc... -............ 30 
a] Foon i OS 134 Software foolworks ..2..:....4.... 123 
MAO Vos Sowers Ss si 56 9? SOUWAV Ne 2 8 103 
© Ciecelmoiwace.......... 21 75 Procrammere Shop ................. 79 
* Giggle Sowa... 8... AQ «102 Solution Systems ..... 4... 113 
4s Golem... ess es. 18 100 Sota Computing Systems ............ 34 
43 Greenleaf Software, Inc ............ G66 136 Speech lechnolosy.................. 98 
SG GeanceScivie ........... 83 59 Soecdware........................ 110 
26 Hallock Systems Consultants.......... oe. 104 Spree... 126 
44 Warvard Softworks ................. 1OO 142 Starlight Forth Systems ............. 111 
46 WS ...... 8... 9S «60 Sunny Scliiwae..«tttié‘(ié‘i#N(NCN#(j 119 
eo Utlech EquipmentCorp............. S> «144 Sunset Technology ................. 111 
46 Ulyes Systems ...................... 36 «162 «Systems Guild ...................-. 122 
2, ipelcoSysiems see. 61 104 Systems Management Assoc........... 33 
61 Institute for Applied Forth Tech. ....... St 146 The Dragon Group «s «< (a ss 98 
OG integral Quality .................... 31-148 The Librarian..................... 92 
IS iptegrand Research Corp. ........... 47 $1 lurho Power Software .............; 38 
13 (itelleware. Inc... 2... 8. i0S «150 USSoliwae..................... 71 
55 Laboratory Microsystems Inc.......... 43 152 UbiquitousSystems ................ 19 
36 Lattice. inc... ee. 68 77 ~UniPress Software ................. 41 
OG Liberty Hell Publishing............... G2 154 Vance (fo Sysietis ................. 87 
12> Lifebont Ascies «(st ti‘i‘“ ‘(ss #8. 60 27 Vermont Creative Software ......... 88-89 
oS Lepgie i... Sl 6156 ~6Vesta lechnologies .«. ge, 119 
SS Maox Soliwate ..........:.......... 59 il2 Wendin ing ........... ce. 9 
74 “Martian lechiciogies...... sti: iia 1G Wisid Sites twit ee 90 
G7 Media Cyberncticg ................. ® 1 fear. i... 11 
84 Megamax. inc ..................542 81 * pbs Back issiies ..............2.... 116 
70 Micro Molion ...................:. 46 * Ops Bound Volume ............... 2. 124 
64 Microprocessors Unlimited .......... 119 * DDI Source Book DD 
“| Murosmim..... .. 119 * Des Subecripiog. 80 
= Miceeon.... i 1 * Dp rooook (Disks... e, 104-105 
Te Micrel Press... ee. 67 * DDJ¥atten Your Mac reprints ........ 93 
SO. Mictoiec Research... . 5c... 7 * DDJC Toolbook/Bound Volume ...... 32a 
* This advertiser prefers to be contacted directly: see ad for phone number. 
Advertising Sales Offices 
East Coast Northern California / Northwest 
Walter Andrzejewski (617) 567-8361 Lisa Boudreau (415) 424-0600 
Midwest /West Central Southern California /AZ, NM 


Michele Beaty (317) 875-0557 


Beth Dudas (714) 643-9439 


Advertising Director 
Shawn Horst (415) 424-0600 


Dr. Dobb’s Journal, October 1985 





_ NEVER AGAIN WRITE SOURCE CODE FOR SCREEN DISPLAYS! 


dE you LIKE Turbo Pascal*, you’ll LOVE TURBO SCREEN™! 





ed of aie line after line of source code just to create effective screen displays and error-proof data han dling? 


hen use TURBO SCREEN’ 's Editor to create the screens, the Collator to define a list of screens. . oe 
and then relax fora few seconds while the Generator writes the code! _ 











TURBO SCREEN™ 





e |/O field types of: 
Real, Integer, String, Character, Boolean. 
© “Bullet-proof” data entry. 
© Create Window-Style overlays or Full-screen pictures in 
_ CPIM*, MS-DOS", or PC-DOS. 


e Supports video attributes for your terminal. And YES, if you 
have an RGB monitor, you can create screens in COLOR on 
your IBM PC or true compatible. 


e@ A SINGLE LINE of source code invoking TURBO SCREEN’S 
_ “display” procedure controls: 

—picture selection 

—output to screen, printer, or disk 

—l/O field update 


PASCOM 
COMPUTING 


23611 Chagrin Blivd., Suite 101 
Cleveland, Ohio 44122 





- 100 Fields per screen, and up to 80 screens in your application. 
_@ One screen or eighty, the size of your program doesn’t change. 








TURBO SCREEN™ is completely menu-driven and includes a 
built-in Screen Editor, Collator, and Generator, each Sed 
up with a single keystroke! 
ADVANCED EDITOR: 
—Turbo Pascal*—like commands include: 
—Block commands for copy, fill, exchange, erase. 
— Draw lines in any direction with any character. 
—Supports IBM color monitor and graphics characters. 


FAST—Generates code for 20 screens in about 60 seconds! 


DISK UTILITIES built-in: 
—directories 
—erase files 
REQUIRES: 
—Turbo Pascal any version 
— 80x24 or larger video screen 
AVOID software “bottlenecks!”’ 


—ee eee sees emesis eins ees emesis eernes e  e  e e  See eee eee « 


Start letting TURBO SCREEN™ write your I/O source code today! 


SS ony — Call TOLL-FREE: 1-800-243-1849 


Inside Ohio call 1-216-292-8745 (Lines Open 24 hours, 7 days) 











Computer System: _____—__—s28-bit 1G bl 

Check _. CC JURBOSCREEN'” Operating System: CP/M80_______: PG-DOS 

package $49.95 CP/M86 MS-DOS 
Money Order Plus Ship. 

(UPS) 5.00 Computer Model: Disk Format: 
a Total $54.95 Name: 
Master Card Adcreas: 
oe ee eee City: State ssi 
Exp. Date: Telephone: 





Circle no. 25 on reader service card. 


Ohio residents add 61/2 % sales tax. Outside U.S.A. add $20.00 





U.S. Dealer Inquiries Welcome. 


*Turbo Pascal is a trademark of Borland International. IBM is a trademark of International Business Machines. MS-DOS is a trademark of Microsoft. CP/M is a trademark of Digital Research. 


60-DAY MONEY BACK GUARANTEE 





Borland’s SuperKey And. 
sideKick Work So Well Together, 
Youll Hardly Work At All. 


AN UNBEATABLE TEAM AT AN UNBEATABLE PRICE! We've 
teamed the best with the best to make the greatest. The best 
keyboard enhancer, SuperKey®. The best desktop organizer, 
SideKick®. The dynamic duo working hand in hand to 
let you do many different things at once. A way that cuts 
down the keystrokes, so you're working instead of just 
typing. A way that wasn’t possible until we paired 
the electronic wizardry of SuperKey with the = 
practical efficiency of SideKick. SuperKey nama 
brings the magic. SideKick does the de- 

tails’ The “s Team” works beautifully Super ul 
together because we designed them 

















SIDEKICK INCLUDES: * Calculator * Notepad * Auto dialer & 

phone directory * ASCII table * Perpetual calendar & datebook 

* Help window * Full-screen editor with word-wrap, 

paragraph editing and much much more. 

| (Chances are that once you have 
—_ ~S>. Ma SuperKey and SideKick working © 

| SS game ff together for you, you'll never need to 

use a word-processing program again). 


SUPERKEY INCLUDES: 
“Encryption to keep confidential files 
confidential * Programmable keys that 


h let you turn a thousand keystrokes 
os | into one * Keyboard lock * Automatic 
GET SUPERKEY AND turn-off of your screen after a pre-set 
SIDEKICK TODAY and you'll 


time so the expensive phosphorus in 
your monitor’s screen isn’t etched 
or ruined * Secret Password 
protection and more. 


have an unbeatable team at an 
unbeatable price — and a $15 
rebate back in the mail. 


IF YOU USE SIDEKICK, YOU NEED SUPERKEY. 
BECAUSE SUPERKEY AND SIDEKICK CAN MAKE 
YOUR DAY GO SOMETHING LIKE THIS: 


8:00 am. You got to work on time, despite the 
44-mph turkey ahead of you in the fast lane. It’s spread- 
sheet time. You hit one key. Lotus 1-2-3 (or whatever) is 
up and running. (One key, because SuperKey has recorded 
all the CD\123 <ENTER >123< ENTER> <ENTER> / 
F <ENTER> R <ENTER> SALES <ENTER> <PeDn> 
foolishness and your one keystroke played all that back 
instantly. One keystroke instead of a minuet). 

8:03 am. You're into the spreadsheet. Phone Tings. 

_You kick in SideKick’s Notepad—without leaving your’ _ 
spreadsheet. You talk. You listen to Frank. You make nc 
that tell you that Frank is upping the numbers from yes 
day's order and he needs a new price and delivery date 
_ He wants a meeting, Fast, but when? You have SideKick _ 
_ fire up your Calendar. Time agreed and noted—in ts 
SideKick’s NotePad. Conversation ends. Your oot is 
still there. 
____ 8:07 am. You're watching the spreadsheet but: 
thinking about the new bid you have to figu 
__ have SideKick’s Calculator pulled up on. 
__asmall piece of the spreadsheet—which d 


IF YOU DON'T USE SIDEKICK YET, YOU GET 
THEM BOTH AND FOR A LIMITED TIME, A 
$15.00 CASH-BACK! Because SuperKey and SideKick 
are so compatible, we let them move in together. Into their 
own blister-pack. With the $15.00 cash-back coupon and 
the manuals. Which is what you get for $139.90 instead of 
the usual $154.90. You need to fill-in the cash-back coupon, 
along with your registration cards and proof of purchase, 
and mail it back. We'll rush you your $15.00 rebate right 
away. Rebate offer ends March 31, 1986. (PS: You can still 
buy SuperKey and SideKick separately. SuperKey $69.95. 
SideKick $84.95. Not copy-protected. ) 


THE CRITIC'S CHOICE 


“If you want the ultimate in sophistication, you won't find any- 


thing finer on the battlefield right now than Borland’s SuperKey 


and SideKick combo.” __ LEON A. WORTMAN, InfoWorld 


eS BORLAND 


4585 Scotts Valley Drive, Scotts Valley CA 95066 
Phone (408) 438-8400 Telex 172373 
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____ 8:08 am. SideKick is coming up with ne 

-SuperKey keeps the spreadsheet on a roll. S; 
-numbers, you have SideKick auto dial Frank's 
= Talk. Hang up. : 


8:09 am. Spreadsheet : alow done Your Te watching 
i thinking about what Frank jus ae on the phone. 
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